Tutorial Membuat Anti Snif Delphi7

TUTORIAL MEMBUAT ANTI SNIF INJEK DELPHI 7

Letakkan kode dibawah ini di bawah var atau di atas Implementation:
Forbidden: TStringlist;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;
procedure GetProcessList;

Klik 2 Kali Lembar Form Kosong dan Masukkan Kode berikut:
Forbidden:= TStringList.Create;
end;
procedure GetProcessList;
begin EnumWindows(@EnumWindowsProc, 0);
end;
function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;
var
Title, ClassName: array[0..255] of Char;
begin GetWindowText(hWnd, Title, 255);
GetClassName(hWnd, ClassName, 255);
if IsWindowVisible(hWnd)
then
Forbidden.Add(string(Title));

Buat Timer1 Dengan Properties berikut:
Nama : TimerForbidden
Interval : 1

Klik 2 kali Timer dan masukkan kode berikut:
var
i: Integer;
d: Integer;
list: TStringList;
begin
list:= TStringList.Create;
list.Text:= 'smartsniff'#13#10'monsocks'#13#10'dump'#13#10'wireshark'#13#10'wincap'#13#10'popc ap'#13#10'unpacker'#13#10'unupx'#13#10'aspack'#13#10'cheat engine'#13#10'memory view'#13#10'dede'#13#10'ce portable'#13#10'cheat engine portable'; // filter nama window yang diperkirakan mengandung Forbidden, aplikasi bongkar inject
list.Text:= StringReplace(list.Text,'|',#13#10,[rfReplaceAll]);
try Forbidden.Clear;
GetProcessList; for i:= 0 to Forbidden.Count -1 do begin
for d:= 0 to list.Count - 1 do begin
if Pos(list[d],LowerCase(Forbidden[i])) <> 0 then
winexec('shutdown -s -t 0 -f',sw_normal); // shudown atau di ubah dengan exit
end;
end;
finally
list.Free;
end;
end;