Menambahkan Anti Sniff Pada Program Delphi 7

Hallo semua, kali ini saya kan share suatu source code untuk memproteksi program kita dari para 'pengintip' :D

Buat para developer delphi, khusus nya di bidang tools internet ini merupakan sangat penting.

Dimana anti sniff ini adalah untuk meproteksi keluar masuk nya jaringan / konek di dalam program yang kita buat.

Oke, bagaimana cara nya?

Yang pasti, kita harus sudah mempunyai project program nya dulu, yap, kalo tidak punya bagaimana bisa praktek?

Oke, ini adalah source code nya, silahkan di simak, di pelajari per kata nya :)


Quote://code begin ---------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
tmr1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
proclist, forbid: TStringList;
implementation

{$R *.dfm}

function EnumProcess(hHwnd: HWND; lParam: integer): boolean; stdcall;
var
title, className: string;
begin
SetLength(className, 255);
SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
SetLength(title, 255);
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
proclist.Add(title + ' ' + className);
result := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
proclist := TStringList.Create;
forbid := TStringList.Create;
forbid.CommaText := 'monsock,dump,sniff'; //---> tambahi app sniffer lainnya
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
proclist.Free;
forbid.Free;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
i, d: Integer;
begin
if proclist.Count > 0 then proclist.Clear;
EnumWindows(@EnumProcess, 0);

for i := 0 to proclist.Count - 1 do
begin
for d := 0 to forbid.Count - 1 do
begin
if Pos(forbid[d], LowerCase(proclist.Strings[i])) <> 0 then
close;
end;
end;
end;

end.


//end code--------------------------------------



Nah, sudah di pelajari ? 
silahkan di terapkan di project delphi anda, jika mengalami kesusahan silahkan berkomentar, sekian dari saya terimakasih.

Homepage|http://4owol.com