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

Metode Ke Dua

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

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