Написял я следующий модуль:

unit MainUnit;

interface

uses
Windows, Forms, Classes, StdCtrls, Controls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

function NetUserGetInfo(servername, username: LPWSTR; level: DWORD; bufptr: Pointer):DWord; stdcall; external 'NetApi.dll' name 'NetUserGetInfo';

function NetApiBufferFree(Buffer: Pointer{LPVOID}):DWORD; stdcall; external 'NetApi32.dll' Name 'NetApiBufferFree';

implementation

{$R *.DFM}

function GetPassword(UserName:string):string;
type
TUSER_INFO_1 = record
useri1_name: Pchar;
useri1_password: PChar;
useri1_password_age: DWord;
useri1_priv: DWord;
useri1_home_dir: PChar;
useri1_comment: PChar;
useri1_flags: DWord;
useri1_script_path: PChar;
end;
PUSER_INFO_1 = ^TUSER_INFO_1;
var
inf: PUSER_INFO_1;
info: Pointer;
res: DWord;
p:PChar;
begin
Result:='-1';
info:=nil;
res:=NetUserGetInfo(nil, PWideChar(username), 1, @info);
if (res = 0) and (info <> nil)
then
begin
p:=PChar(info);
inf:=PUSER_INFO_1(p + SizeOf(TUSER_INFO_1));
Result:=WideCharToString(PWideChar((inf^).useri1_password));
end;
NetApiBufferFree(info);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ps:string;
begin
ps:=GetPassword(Edit2.Text);
if ps <> '-1'
then
Edit3.text:=ps
else
Application.MessageBox('Ошибка определения пароля.', 'Error:', mb_ok + mb_iconstop);
end;

end.

Откомпилировав его я запускаю Exe-файл... Вылетает ошибка: "Файл C:\Windows\System\NetApi.dll по видимому повреждён..." и "...Присоединённое к системе устройство не работает", хотя NetApi.dll не повреждён, и функция NetUserGetInfo там есть. Помогите понять в чём дело, может быть я неправильно описал саму функцию NetUserGetInfo или что-либо в этом духе...

А какие пароли ты хотел получить?
И какая у тебя OC?

1. Действительно, какая ОС ?
2. Почему функция NetUserGetInfo берЁтся из 'NetApi.dll' , а NetApiBufferFree из NetApi32.dll ? Если у тебя ОС на базе NT, то NetUserGetInfo должна браться из NetApi32.dll.
Вероятно - это просто опечатка.

У меня Windows 98, взломать надо Windows 2000(Вообщето я уже касался этой темы "Небольшой взлом. Admin и Windows 2000", но мне ничего толкового из функций не предложили, так что сам нашел). Что касается NetApi.dll и NetUserGetInfo, то эту функцию я нашел только там.

Сейчас попробовал загрузить библиотеку NetApi.dll через LoadLibrary, не получилось, даже не понял из-за чего. А библиотека NetApi32.dll загружается без всяких проблем. Странно, но факт есть факт, ведь Windows не должен же охранять свои библиотеки от просмотра...

Pakshin A. S.Могу сразу обрадовать, если ты не понял о чем тебе толковали раньше - NetUserGetInfo() не вернет тебе пароль ни под каким видом.

Ошибаешься, она вернёт мне всевозможную информацию о пользователе, среди которой есть и пароль. Посмотри в Windows SDK всё, что связано с этой функцией. Там всё просто...

Pakshin A. S. Это ты ошибаенься - она вернет всевозможную информацию кроме пароля, RTFM.

Только w9x

Song NetUserGetInfo() нету в 9x.

смех... dim - тебя никто не слушает, а зря.
p.s: если бы ф-я возвращала пароль, то ни о какой безопасности в windows и речи быть не могло

Это сообщение отредактировал(а) man2002ua - 21.2.2003, 02:30