Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Как считывать файлы...   Найти похожие ветки 

← →
Leha-neo   (2002-08-07 20:25) [0]

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

---

← →
V.Turecky   (2002-08-07 21:10) [1]

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

---

← →
V.Turecky   (2002-08-07 21:11) [2]

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

---

← →
Poirot ©   (2002-08-08 03:43) [3]

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

---

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

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

---

← →
Leha-neo   (2002-08-08 19:25) [5]

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

---

← →
xyz ©   (2002-08-08 22:05) [6]

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

---

← →
rhf ©   (2002-08-08 23:08) [7]


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.


---

Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.013 c