| Вопрос: Как перевести двоичные данные в hex? | Добавлено: 20.05.08 00:52 |
Автор вопроса:  JacK | Web-сайт: idiot.ru | ICQ: 9580088 |
| Ответы | Всего ответов: 30 |
|
Номер ответа: 16 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #16 | Добавлено: 21.05.08 22:38 |
|
Я тут на с++ пишу по учебной необходимости, так что приколебываюсь к переменным) Да и запутаться сложнее, если их объявлять
Option Explicit
Private Sub Command1_Click() Dim f As Integer Dim s As String, b As Byte Dim data As String 'Исходные данные Dim res As String 'Результат Dim i As Long f = FreeFile Open "c:\msg12.exe" For Binary As #f data = Input(LOF(f), #f) Close #f For i = 1 To Len(data) s = Mid(data, i, 1) b = Asc(s) s = Hex(b) If Len(s) < 2 Then s = "0" & s res = res & s Next i f = FreeFile Open "C:\msg12.txt" For Binary As #f Put #f, , res Close #f End Sub Private Sub Command2_Click() Dim f As Integer Dim s As String, b As Byte Dim data As String 'Исходные данные Dim res As String 'Результат Dim i As Long f = FreeFile Open "c:\msg12.txt" For Binary As #f data = Input(LOF(f), #f) Close #f For i = 1 To Len(data) Step 2 s = Mid(data, i, 2) b = CDec("&H" & s) s = Chr$(b) res = res & s Next i f = FreeFile Open "C:\msg13.txt" For Binary As #f Put #f, , res Close #f End Sub |
||
|
Номер ответа: 17 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #17 | Добавлено: 21.05.08 22:39 |
да-да. умно. тока ничего не выйдет 
1. Загрузчик надо как-то тоже на клиентскую машину загнать. Или тоже гекс-кодыами слать буишь? 2. Какой скрипт и как ты его закинешь жертве и запустишь? Может надо открывать файл для записи все же, а не для добавления? И нах LenB(data), когда надо Len(data), ибо нам нужно количество символов, а не количество байт, для них требующихся. А строки у нас, насколько я знаю, в юникоде... Вот тебе и пресловутая ошибка твоя и размер в два раза больше. |
||
|
Номер ответа: 18 Автор ответа: JacKICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #18 | Добавлено: 21.05.08 23:01 |
| Гоните! Оба... | ||
|
Номер ответа: 19 Автор ответа: JacKICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #19 | Добавлено: 21.05.08 23:18 |
| А вот на счёт len(data) прав)) | ||
|
Номер ответа: 20 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #20 | Добавлено: 21.05.08 23:54 |
|
Кто гонит?! Ты гонит! ..хотя и на гонит-то не похож. Ой надо меньше кокаину употреблять
А что такое? Мой код работает. Даже без "..Resume Next" |
||
|
Номер ответа: 21 Автор ответа: JacKICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #21 | Добавлено: 21.05.08 23:56 |
|
b As Byte
b = Asc(s)
s = Hex(b) Зачем новая переменная типа "байт"? Что у тебя получится? Собираем туда и обратно: Option Explicit
Dim f As Long Dim res As String Dim data As String Dim i As Integer Dim s As String Dim dat As String Private Sub Command1_Click() f = FreeFile res = "" Open "C:\msg12.exe" For Binary As #f data = Input(LOF(f), #f) Close #f For i = 1 To Len(data) s = Mid(data, i, 1) s = Asc(s) On Error Resume Next s = Hex(s) If Len(s) < 2 Then s = "0" & s res = res & s Next i Open "C:\msg12.txt" For Append As #f Print #f, res Close #f End Sub Private Sub Command2_Click() Open "C:\msg12.txt" For Input As #f dat = Input(LOF(f), #f) Close #f Dim Bin() As Byte ReDim Bin(Len(dat) \ 2 - 1) For i = 0 To Len(dat) \ 2 - 1 Bin(i) = CByte("&H" & Mid(dat, i * 2 + 1, 2)) Next Open "c:\msg13.exe" For Binary As #f Put #f, , Bin() Close #f End Sub Executioner 1.Речь не о том как впарить загрузчик. А как получать инфу через нет, без палива. Напиши простой друппер который будет качать из инета &.exe и запускать его. Потом послушай, что тебе скажет женя касперский, др. Веб, Нод... 2. Опять же, речь не идёт как впарить... Скрипт будет писать ся на WSH. Простейши пример конврта на JS http://forum.script-coding.info/viewtopic.php?id=1226 |
||
|
Номер ответа: 22 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #22 | Добавлено: 21.05.08 23:57 |
|
JacK
Гоним? Ну-ну. Вот если ты мне зальешь калькулятор своими гексами на комп, тогда я посмотрю
|
||
|
Номер ответа: 23 Автор ответа: JacKICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #23 | Добавлено: 22.05.08 00:16 |
|
У тебя нет калькулятора на компе, что-ли?
А вот пинч не нужен? |
||
|
Номер ответа: 24 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #24 | Добавлено: 22.05.08 00:22 |
|
Пинч говно Им никто давно не пользуется. У меня лежит без дела уже года два) Ну давай, засылай пинч. Говори где у тя сплоит, я зайду.
|
||
|
Номер ответа: 25 Автор ответа: JacKICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #25 | Добавлено: 22.05.08 00:42 |
|
IE < 6
http://jack7.ho.ua/exploit.html ВА!!!! Испугался?! Нет?))) Не писал я ещё своего эксплоита, вот этот как шаблон подойдёт, чуть модифицирую, всё буде ОК я те обещаю!) Ладно-ладно, согласен, что всё гнать в хекс не самое лучшее что придумало человечество(но и не худшее). Лучше скажи, как можно определить точку входа в программу? |
||
|
Номер ответа: 26 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #26 | Добавлено: 22.05.08 00:48 |
|
В асю
|
||
|
Номер ответа: 27 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #27 | Добавлено: 22.05.08 18:58 |
|
Зачем новая переменная типа "байт"? Что у тебя получится? Чтобы понятнее было. Кодирование в Hex и обратно.
И все же on error resume next (да еще и в цикле?) - это бредово и неправильно имхо. p.s. Print #f, res - еще новую строку в конец добавляет, поэтому надо Put |
||
|
Номер ответа: 28 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #28 | Добавлено: 22.05.08 23:21 |
|
IE < 6
бугога! IE < 6 Отсутствие сервис паков и заплаток Отсутствие антивирусов и фаерволов Отсутствие мозгов и рук Не слишком жесткие требования?
|
||
|
Номер ответа: 29 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #29 | Добавлено: 23.05.08 01:33 |
|
Ну, таких большинство
|
||
|
Номер ответа: 30 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #30 | Добавлено: 23.05.08 01:52 |
|
/трясущимися ногами пытается установить сервиспаки, заплатки и антивирусы/
млиииин, почему я жму отмену при установке каспера, а он не работает? |
||