Arsip: virus restart pc jika ada kata2 tertentu, delphi bisa bgt


by nickqin in Articles more 13 years ago 2180
Aktivitas virus yang merestart pc jika menemukan aktiv captionbar dengan kata-kata kertentu hmmmm..! Delphi pun bisa banget gitu lho. :)

untuk lebih mudah menjelaskannya pasang beberapa komponen berikut:
1 richedit, 1 memo dan 1 timer
dan kodenya sebagai berikut:
function ActiveCaption: string;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
ActiveCaption := TrimRight(Title);
end;
end;
function cari(RichEdit: TRichEdit; SearchText: string): Boolean;
var
StartPos, Position, Endpos: Integer;
begin
StartPos := 0;
with RichEdit do
begin
Endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do
begin
Endpos   := Length(RichEdit.Text) - startpos;
Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]);
Inc(StartPos, Length(SearchText));
cari:=true;
end;
Lines.EndUpdate;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
//mengambil caption bar
richedit1.Text :=ActiveCaption;
//ubah ke huruf kecil semua
richedit1.Text :=lowercase(richedit1.Text);
//cari kata yang sesuai dengan array di memo
for i:=0 to memo1.Lines.Count-1 do
begin
if cari(RichEdit1, memo1.Lines.Strings[i]) then
//jika ada lakukan sesuatu restart ato close aplikasinya
showmessage('ada kata yang dimaksud');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//membuat array kata yg akan dicari
memo1.Clear;
memo1.Lines.Add('virus');
memo1.Lines.Add('anti');
memo1.Lines.Add('nickqin');
memo1.Lines.Add('notepad');
end;
Syntax Highlighted with https://pascal-id.org/syntax



semoga bermanfaat
sorry bad cording! soalnya masih pemula :)
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com