| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как считывать файлы... [D6, Win95/98, WinXP]

Leha-neo ©   (2002-08-07 20:25:00) 

Как считывать пароли из .PWL файлов??? Но не думайте! Я не вирмейкер! Просто мне нужно звонилку свою личную сделать.

---

rhf   (2002-08-08 23:08:00) [1]


program pass;

uses
SysUtils, Windows;

type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize:Word;
ResourceSize:Word;
PasswordSize:Word;
EntryIndex:Byte;
EntryType:Byte;
PasswordC:Char;
end;

TWNetEnumCachedPasswords = function (lp : lpStr; w : Word;b: Byte; pc : Pointer; dw : DWord) : Word;stdcall;

var
Count:Integer;
FPasswords:string;
handle:thandle;

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.ResourceSize + WinPassword.PasswordSize);
Move(PC[WinPassword.ResourceSize],PC,WinPassword.PasswordSize);
PC[WinPassword.PasswordSize]:=#0;
CharToOem(PC,PC);
Password:=Password + ": " + StrPas(PC);
if (WinPassword.EntryType = 6) or (WinPassword.EntryType = 19) then
FPasswords:=FPasswords + Password + #13#10;
Result:=True;
end;

procedure passwd;
var
hndl : thandle;
WNetEnumCachedPasswords : TWNetEnumCachedPasswords;
begin
try
hndl:=loadlibrary("MPR.DLL");
WNetEnumCachedPasswords:=getprocaddress(hndl,"WNetEnumCachedPasswords");
Count:=0;
FPasswords:="";
WNetEnumCachedPasswords(nil,0,$FF,@AddPassword,0);
freelibrary(hndl);
except
end;
end;

begin
passwd;
MessageBox(handle,PChar(fpasswords),"Password",MB_OK+32);
end.


---

xyz   (2002-08-08 22:05:00) [2]

Народ, ну не держите тайну, расскажите человеку как расшифровать PWL!
Алгоритмы в Internet встречаются, если кто пробовал реализовать -поделитесь!
Плиз...

---

Leha-neo   (2002-08-08 19:25:00) [3]

Всеровно нужно мне знать! Мало ли пароль забыл, а программки тебе его не покажут! Тем более я только начинаю криптографию изучать и надо знать самое простое :)
Но я честно не вирмейкер!

---

Кулюкин Олег   (2002-08-08 09:08:00) [4]

В своей личной звонилке пароли можно хранить и в своем личном файле, а не крякать PWL

---

Poirot   (2002-08-08 03:43:00) [5]

ну невчитался, но где ответ-то или НЕЗНАЕШЬ...

---

V.Turecky   (2002-08-07 21:11:00) [6]

Опс. Прошу прошения не вчиталься.

---

V.Turecky   (2002-08-07 21:10:00) [7]

Что именно тебе прочитать нужно?

---

Наверх