Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
8-60754
SerVS
2002-04-14 02:34
2002.08.19
BMP -> JPEG


3-60488
Кирилл Усов
2002-07-29 09:09
2002.08.19
транзакции на interbase 5.6


1-60723
rhf
2002-08-06 18:59
2002.08.19
WM_NCHITTEST


3-60529
Samvel
2002-07-29 21:42
2002.08.19
Table


8-60758
vbazik
2002-04-11 18:28
2002.08.19
Сшивка изображений





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский