pm_hamze
جمعه 31 خرداد 1387, 17:51 عصر
با سلام خدمت دوستان گلم
با این کد می تونید پسوورد تمام یوزر های ویندوز رو حتی administratorرو عوض کنید به راحتی...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,shellapi;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
ProgressBar1: TProgressBar;
Edit2: TEdit;
Button1: TButton;
Edit1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Adress:String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
VAR
i,I2:integer;
F:TextFile;
OU:STRING;
begin
TRY
Edit2.Visible:=False;
I2:=0;
If Edit2.Text <>'' then
Begin
AssignFile(F,Adress);
Rewrite(F);
Writeln(F,'Net user '+Edit1.TEXT+' '+Edit2.text+'>c:\A.DLL');
CloseFile(F);
ShellExecute(Handle,'Open',Pchar(Adress),nil,nil,S W_Hide);
/////Progres Bar
ProgressBar1.Visible:=true;
For i:=1 to 5 DO
BEGIN
ProgressBar1.Position:=ProgressBar1.Position+20;
SLEEP(500);
Application.ProcessMessages;
END;
/////////////////////////////////
AssignFile(F,'c:\A.DLL');
RESET(F);
READLN(F,OU);
CLOSEFILE(F);
IF OU='The command completed successfully.' THEN
begin
ShowMessage('عمليات با موفقيت انجام شد'+#10+#13+' complet succssfully');
Edit2.Text:='';
end
ELSE
ShowMessage('Error : '+#10+#13+'برنامه در انجام عمليات دچار مشكل شد');
End
Else
ShowMessage('Error : '+#10+#13+'لصفا يك رمز عبور وارد كنيد');
/////////////////
ProgressBar1.Visible:=false;
except
ShowMessage('برنامه در انجام عمليات دچار مشكل شد' +#10+#13+' complet succssfully');
Edit2.Visible:=True;
END;
Edit2.Visible:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
L:Dword;
A:String;
A2:Array[0..max_path]of char;
begin
SetString(Adress,A2,GetSystemDirectory(A2,Max_Path ));
Adress:=Adress+'\Rundll.Bat';
L:=MAX_PATH+1;
SetLength(A,MAX_PATH+1);
GetUserName(PCHAR(A),L);
SetLength(A,STRLEN(PCHAR(A)));
Edit1.Items.Add('Administrator');
Edit1.Items.Add(A);
Edit1.Text:=A;
end;
end.
با این کد می تونید پسوورد تمام یوزر های ویندوز رو حتی administratorرو عوض کنید به راحتی...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,shellapi;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
ProgressBar1: TProgressBar;
Edit2: TEdit;
Button1: TButton;
Edit1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Adress:String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
VAR
i,I2:integer;
F:TextFile;
OU:STRING;
begin
TRY
Edit2.Visible:=False;
I2:=0;
If Edit2.Text <>'' then
Begin
AssignFile(F,Adress);
Rewrite(F);
Writeln(F,'Net user '+Edit1.TEXT+' '+Edit2.text+'>c:\A.DLL');
CloseFile(F);
ShellExecute(Handle,'Open',Pchar(Adress),nil,nil,S W_Hide);
/////Progres Bar
ProgressBar1.Visible:=true;
For i:=1 to 5 DO
BEGIN
ProgressBar1.Position:=ProgressBar1.Position+20;
SLEEP(500);
Application.ProcessMessages;
END;
/////////////////////////////////
AssignFile(F,'c:\A.DLL');
RESET(F);
READLN(F,OU);
CLOSEFILE(F);
IF OU='The command completed successfully.' THEN
begin
ShowMessage('عمليات با موفقيت انجام شد'+#10+#13+' complet succssfully');
Edit2.Text:='';
end
ELSE
ShowMessage('Error : '+#10+#13+'برنامه در انجام عمليات دچار مشكل شد');
End
Else
ShowMessage('Error : '+#10+#13+'لصفا يك رمز عبور وارد كنيد');
/////////////////
ProgressBar1.Visible:=false;
except
ShowMessage('برنامه در انجام عمليات دچار مشكل شد' +#10+#13+' complet succssfully');
Edit2.Visible:=True;
END;
Edit2.Visible:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
L:Dword;
A:String;
A2:Array[0..max_path]of char;
begin
SetString(Adress,A2,GetSystemDirectory(A2,Max_Path ));
Adress:=Adress+'\Rundll.Bat';
L:=MAX_PATH+1;
SetLength(A,MAX_PATH+1);
GetUserName(PCHAR(A),L);
SetLength(A,STRLEN(PCHAR(A)));
Edit1.Items.Add('Administrator');
Edit1.Items.Add(A);
Edit1.Text:=A;
end;
end.