Главная страница
    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
4-60897
Freezer
2002-06-14 16:00
2002.08.19
Invalid window handle


3-60493
Exp
2002-07-29 12:45
2002.08.19
Запросы к таблицам EasyTable


1-60751
Bart
2002-08-07 12:45
2002.08.19
Нужна функция перевода числа в строку


1-60674
XShura
2002-08-06 09:23
2002.08.19
Опять про ListView.OnChanging


1-60642
Dinara
2002-08-08 21:30
2002.08.19
Динамически созданный ListView





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский