| Вопрос: DeCrypt RQ | Добавлено: 12.06.05 08:03 |
Автор вопроса:  HACKER
|
|
'=========================================================== | ' <ПРИМЕР ПО РЕАЛИЗАЦИИ РАЗШИФРОВКИ ПАРОЛЯ С ICQ КЛИЕНТА >| ' < "&RQ" >| ' < >| ' <АЛГОРИТМ ПЕРЕВЕДЁН С ИСХОДНИКА НА АССЕМБЛЕРЕ ОДНОЙ >| ' <ПРОГРАММЫ ДЛЯ ВОСТАНОВЛЕНИЯ ПАРОЛЕЙ ОТ &RQ. АВТОРАМИ >| ' <ОРИГЕНАЛЬНЫХ ИСХОДНИКОВ НА АССЕМБЛЕРЕ ЯВЛЯЕТСЯ КОММАНДА >| ' <HitU, ЗА ЧТО ИМ ОТДЕЛЬНЫЙ RE5PECT ! >| ' >| ' >| ' = = = = = = = M A D E B Y H A C K E R = = = = = = >| ' icq: 826747 or 334479038, mail: visualbasic@xaker.ru >| '=========================================================== | Private Sub Form_Load() file$ = "D:\Program Files\rq\826747\andrq.ini" 'Указываем файл от вашего юина 'Из путь к файлу получаем сам юин icq$ = Replace(file$, "\andrq.ini", "") For i% = Len(icq) To 1 Step -1 If Mid(icq, i%, 1) = "\" Then Exit For Next i% icq$ = Right(icq$, Len(icq$) - i%) Open file$ For Input As #1 'Открываем файл с данными про аккаунт в RQ Line Input #1, Nick$ 'Читам первую строку, т.е. ник Nick$ = Replace(Nick$, "account-name=", "") 'Убриаем лишнее Line Input #1, Version$ 'Версия ненужна, но как для прокрутки строки придётся :) Line Input #1, CryptPassword$ 'Читам зашифрованный пароль CryptPassword$ = Replace(CryptPassword$, "crypted-password=", "") 'Убриаем лишнее '/// Алгорит расшифровки пароля /// ' -1 т.к. читаем по 2 ! For i% = 1 To Len(CryptPassword$) - 1 'Цикл для чтение символ по порядку s0$ = Mid(CryptPassword$, i%, 1) 'Читаем порядковый s1$ = Mid(CryptPassword$, i% + 1, 1) ' + 1 на перёд 'Если порядковый, и тот что на перёд, укладываются в диапазон по ASCII таблице между 40 и 55 If Asc(s0$) >= 40 And Asc(s0$) <= 55 And Asc(s1$) >= 40 And Asc(s1$) <= 55 Then 'То от того что на перёд отнимаем 40, умножаем на 16 и прибавляем к первому к которого тоже забираем 40 :) de$ = de$ & (Val(Asc(Mid(CryptPassword$, i% + 1, 1))) - 40) * 16 + Val(Asc(Mid(CryptPassword$, i%, 1))) - 40 & " " i = i + 2 'Т.к. читаем по 2, в цикле перескакуем... End If Next i% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 'Далее получим набор ASCII значений пароля в обратном порядке Dim arr$() arr = Split(de$, " ") 'Переведём эту строку чисел в массив de$ = "" 'Очистим эту строку For i% = UBound(arr$) - 1 To 0 Step -1 'Закрутим цикл в обратном направлении по элементам массива n = Val(Trim(arr(i%))) 'Читаем элемент массива de$ = de$ & Chr(n) 'Преобразовуем его в нормальный вид Next i% 'ВСЁ :) 'Красиво вывидем на экран msg$ = " --- === Пример разшифровки пароля в RQ === ---" & vbCrLf & vbCrLf & _ "Ваш ник: " & Nick & vbCrLf & _ "Ваш UIN: " & icq$ & vbCrLf & _ "Пароль: " & de$ & vbCrLf & vbCrLf & _ "=================================" MsgBox msg$, vbInformation, "DeCrypt RQ" End End Sub Просьба тестировать и заценять. Любыми подобными от других программ буду ОЧЕНЬ рад! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 12.06.05 18:23 |
|
2 ZagZag.
Вперёд  Как достанеш исходники PassView можешь мне стучать в асю в любое время дня и ночи. Хотя вместо PassView мне Coban2k "MPR" свою показывал, она умеет раз в 10 (без приувелечиния) больше чем PassView. Так лучше что тогда дезассимблировать её
2 PeterS Не путай аську с RQ ! Это два разных icq клиента, я тестировал свой код под RQ 0.9.4.16 Файл лежит где установлена прога в папке с таким именем, какой у тебя юин. 2 Sne И какая разница с асма ,или с Делфи, на ВБ переписывать? |
||
|
Номер ответа: 2 Автор ответа: PeterS Вопросов: 24 Ответов: 109 |
Профиль | | #2 | Добавлено: 12.06.05 19:03 |
|
Не путай аську с RQ ! Это два разных icq клиента, я тестировал свой код под RQ 0.9.4.16 Файл лежит где установлена прога в папке с таким именем, какой у тебя юин.
Да, я понял. PS: А что случилось с темой? Сперва исчезла, потом появилась, да без предыдущих ответов! |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 12.06.05 19:27 |
|
ничё, всё норм ...
|
||
Страница: 1 |