| Вопрос: Кто ASM хорошо знает и VB(одновременно) | Добавлено: 20.08.05 15:46 |
Автор вопроса:  Amor | ICQ: 1268198 |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 16 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #16 | Добавлено: 20.08.05 23:22 |
|
2 Amor
чтобы разшифровать пасс от мыши, асм вообще не нужен, вот тебе код на делфи: function TModuleTheBat.DecryptPass(const Password: String): String; const b64alphabet2: String = '+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; function DecodeBaseTB(Value: String): String; function DecodeChunk(const Chunk: String): String; var W: LongWord; i, j: Integer; begin W := 0; Result := ''; j := 3; for i := 1 to 4 do if Pos(Chunk[i], b64alphabet2) <> 0 then W := W + Byte((Pos(Chunk[i], b64alphabet2) - 1)) shl ((4 - i) * 6) else  ec(j);
for i := 1 to j do Result := Result + Chr(W shr ((3 - i) * 8) and $ff); end; begin Result := ''; if Length(Value) mod 4 <> 0 then Exit; while Length(Value) > 0 do begin Result := Result + DecodeChunk(Copy(Value, 0, 4)); elete(Value, 1, 4);
end; end; var S: String; i: Integer; Len: Integer; begin Result := ''; S := DecodeBaseTB(Password); // First decryption stage if Length(S) < 4 then Exit; // Empty password for i := 1 to 4 do S[i] := Chr($FF - Ord(S[i]  ); // Decrypt pass length
Len := PDWord(@S[1] ^;
elete(S, 1, 4);
for i := 1 to Length(S) do S[i] := Chr(Ord(S[i] xor $5A); // Second decryption stage
Result := ''; for i := Len downto 1 do // Third decryption stage Result := Result + S[i]; end; я даже делфи немного знаю, и перевести это на ВБ пробывал 2 раза, и казалось бы всё круто... Но в ВБ НЕТ такого понятия как указатель на переменную в памяти... а делфи есть, от поэтому и не получилось перевести у меня. Впрочем можно и на делфи создать dll и юзать её в вб... Вообщем карты тебе в руки, код есть, бери переводи 
|
||
|
Номер ответа: 17 Автор ответа: Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #17 | Добавлено: 20.08.05 23:36 |
|
Кто знает, чё это у меня за глюки в IE?
У Uzver1 у меня вот что вылазит: 66666&img=5'>Wow Wow' src='http://wwp.icq.com/scripts/online.dll?icq=66666&img=5'>Wow&img=5'>
|
||
|
Номер ответа: 18 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #18 | Добавлено: 20.08.05 23:38 |
| Я к тому, что у всех остальных ICQ # отображается нормально, а у Uzver1 в обоих случаях - белеберда. | ||
|
Номер ответа: 19 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #19 | Добавлено: 21.08.05 00:40 |
|
sne,
Переписать с языка ассемблера на VB невозможно. Можно только написать похожий сценарий вызова API. |
||
|
Номер ответа: 20 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #20 | Добавлено: 21.08.05 12:41 |
|
Мне б просто переделать модуль на masm чтоб он в txt файл записывал результат
Хотябы так! |
||
|
Номер ответа: 21 Автор ответа: AmorICQ: 1268198 Вопросов: 31 Ответов: 101 |
Профиль | | #21 | Добавлено: 21.08.05 12:41 |
| или на екран в дос окне | ||
|
Номер ответа: 22 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #22 | Добавлено: 21.08.05 15:32 |
|
Если задача просто получить пароль, то достаточно вымылить на свою машину 1 файл
\The Bat!\<email>\ACCOUNT.CFG в нём и хранится зашифрованный пасс. Расшифровывать программно не имеет смысла, проще подставить этот файл на свой комп в свою мышь. Также можно воспользоватся уже готовыми программами для расшифровки ACCOUNT.CFG. Самое главно что файл будет у тебя! |
||
|
Номер ответа: 23 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #23 | Добавлено: 21.08.05 15:35 |
|
пардон, папочку MAIL забыл
\The Bat!\MAIL\<email>\ACCOUNT.CFG |
||