SHUTDOWN PC DENGAN DELPHI

SHUTDOWN PC DENGAN DELPHI

Karena sekarang bug injek intuk internet gratis serba susah di cari,dan banyak sekali phreaker-phreaker yang ingin sekali menyembunyikan bug pada payload yang mereka miliki,maka sering sekali mereka memberikan anti sniff atau anti maling agar isi dalan injek tidak mudah di kerahui,

tapi meskipun begitu masih banyak orang-orang dan tool-tool hebat di luar sana yang mampu memfulgarkan isi yang ada di dalam injek internet gratis.

Pada kesempatan ini saya akan share beberapa metode yang mungkin akan berguna bagi yang mau memasang anti sniff model shutdown PC.

langsung saja simak kode-kode di bawah ini dan praktekkan pada isi source injek kalian masing-masing.

Metode Pertama

procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN,0); //EWX_SHUTDOWN for shutdown //EWX_REBOOT for reboot //EWX_LOGOFF for logoff end;

Metode Ke Dua

procedure TForm1.Button1Click(Sender: TObject); begin WinExec('shutdown.exe -s -f -t 0' , SW_HIDE); end;

Metode Ke Tiga

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function SetPrivilege1 (sPrivilegeName: string; bEnabled: Boolean) : Boolean; var TPPrev, TP : TTokenPrivileges; Token : THandle; dwRetLen : DWORD; begin result := False; OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token); TP.PrivilegeCount := 1; if LookupPrivilegeValue (nil, PChar (sPrivilegeName), TP.Privileges[0].LUID) then begin if bEnabled then TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else TP.Privileges[0].Attributes := 0; dwRetLen := 0; result := AdjustTokenPrivileges (Token, False, TP, SizeOf (TPPrev), TPPrev, dwRetLen) end; CloseHandle (Token) end; function WinExit1 (iFlags: integer) : Boolean; begin result := true; if SetPrivilege1 ('SeShutdownPrivilege', true) then begin if (not ExitWindowsEx (iFlags, 0)) then begin result := False end; SetPrivilege1 ('SeShutdownPrivilege', False) end else begin result := False end; end; procedure TForm1.Button1Click(Sender: TObject); begin // 0= Logoff // 1= Shutdown WinExit1(1); end; end.

Metode Ke Empat

uses ComObj; {....} procedure TForm1.Button1Click(Sender: TObject); var shell: Variant; begin shell := CreateOleObject('Shell.Application'); shell.ShutdownWindows; end;

Demikian tutor yang sederhana,semoga bisa membantu dan di coba praktekkan,jika ada yang eror atau salah silahkan di bahas di kolom komentar.

Terimakasih sudah membaca: SHUTDOWN PC DENGAN DELPHI