Bilgisayarınıza bulaşan Malware tabir edilen ve bilgisayarınızı tabiri caizse bir “mal”a çeviren zararlılar, IE (Internet Explorer)’ın giriş sayfasına kendi adresini yazar ve burayı kilitler. Böylece tarayıcıyı her açtığınızda sörfe malware’in sitesi ile başlarsınız. IE’ın giriş sayfası kilidini kaldırmak için aşağıdaki aracı kullanabilirsiniz. Ayrıca kaynak kodlarını da indirebilirsiniz.
Kaynak Kod:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
[crayon-678c12a2ee2b1461595987 lang="delphi" ] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry, DCURLLabel; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; DCURLLabel1: TDCURLLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses SHELLAPI; Procedure setie(value:byte); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('Software', True); reg.OpenKey('Policies', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Internet Explorer', True); reg.OpenKey('Control Panel', True); reg.WriteInteger('HomePage',value); reg.CloseKey; reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Policies', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Internet Explorer', True); reg.OpenKey('Control Panel', True); reg.WriteInteger('HomePage',value); reg.CloseKey; { reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Internet Explorer', True); reg.OpenKey('Main', True); reg.WriteString('Start Page','http://www.google.com'); reg.CloseKey; reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Internet Explorer', True); reg.OpenKey('Main', True); reg.WriteString('Start Page','http://www.google.com'); reg.CloseKey; } WinExec(Pchar('C:\Program Files\Internet Explorer\iexplore.exe'), sw_normal); end; procedure TForm1.Button1Click(Sender: TObject); begin setie(0); end; procedure TForm1.Button2Click(Sender: TObject); begin setie(1); end; end. |
