Admin Admin
Tổng số bài gửi : 60 Điểm số : 4292 Join date : 17/11/2012
| Tiêu đề: Kill Autorun.inf by Pascal Sun Nov 18, 2012 4:05 pm | |
| Code 1 Program find_autorun; Uses DOS;{Chuong trinh tim autorun.inf} Var dsk:Array[1..26] of Char; {Ten cac' dia~ } Au :Array[1..maxint] of char; {Au: mang chua'' kj' tu la noi dung autorun.inf} Text1,Stringtest :String; dem_auto : integer; {Slg. file autorun.inf} luu_auto : Array[1..26] of string; {mang? luu danh sach autorun} key : char; {khoa' tl muon' xoa' ko?} procedure read_autorun; {doc. no^j. dung file autorun.inf} var i,j,n:integer; f:text; begin Assign(f,Stringtest); Reset(f); i:=0; j:=0; n:=0; While not eof(f) do begin i:=0; n:=0; While not eoln(f) do
Read more: http://the9.forumvi.com/t229-topic#ixzz2CW4Qme3g
begin i:=i+1; Read(f,au[i]); end; n:= i; For j:=1 to n do Write(Au[j]); Readln(f); Writeln; end; Writeln; end;
Procedure Dsk_autorun; var ii:integer; f:text; begin dem_auto := 0; For ii:=1 to 24 do begin dsk[ii] := chr(64 + ii); {Danh sach dja~ A..Z} Stringtest := dsk[ii] + ':/autorun.inf'; Assign(f,Stringtest); {$I-} Reset(f); {$I+} If Ioresult = 0 then begin inc(dem_auto); Writeln('[-] ',Stringtest); Read_autorun; Luu_auto[dem_auto] := Stringtest; end; end; end; Procedure del_autorun; Var f1:text; tt:integer; begin If dem_auto > 0 then For tt:=1 to dem_auto do begin Assign(f1,luu_auto[tt]); SetFattr(f1,0); {Loai bo? thuoc tinh'' } Erase(f1); {Xoa' F1 >> autorun.inf} end; end;
BEGIN Text1 :='==== Chuong trinh phat hien Autorun.inf [by Zzghostdragon94zZ] ===='; Write(text1); Writeln; Dsk_autorun; If dem_auto = 0 then Writeln('Khong phat hien Autorun.inf') else Repeat Writeln('Ban co muon xoa tat ca autorun.inf khong(Y/N)?'); Readln(key); If (Key = 'Y') or (key= 'y') then begin del_autorun; Writeln('Da~ Xong!!! '); key := 'n'; end; Until (key='N') or (key= 'n'); Write(' PRESS ANY KEY TO EXIT '); Readln; End. ____________________________________________________- Code 2 Program find_autorun; Uses DOS;{Chuong trinh tim autorun.inf} Var dsk:Array[1..26] of Char; {Ten cac' dia~ } Au :Array[1..maxint] of char; {Au: mang chua'' kj' tu la noi dung autorun.inf} Text1,Stringtest :String; dem_auto : integer; {Slg. file autorun.inf} luu_auto : Array[1..26] of string; {mang? luu danh sach autorun} key : char; {khoa' tl muon' xoa' ko?} procedure read_autorun; {doc. no^j. dung file autorun.inf} var i,j,n:integer; f:text; begin Assign(f,Stringtest); Reset(f); i:=0; j:=0; n:=0; While not eof(f) do begin i:=0; n:=0; While not eoln(f) do begin i:=i+1; Read(f,au[i]); end; n:= i; For j:=1 to n do Write(Au[j]); Readln(f); Writeln; end; Writeln; end;
Procedure Dsk_autorun; var ii:integer; f:text; begin dem_auto := 0; For ii:=1 to 24 do begin dsk[ii] := chr(64 + ii); {Danh sach dja~ A..Z} Stringtest := dsk[ii] + ':/autorun.inf'; Assign(f,Stringtest); {$I-} Reset(f); {$I+} If Ioresult = 0 then begin inc(dem_auto); Writeln('[-] ',Stringtest); Read_autorun; Luu_auto[dem_auto] := Stringtest; end; end; end; Procedure del_autorun; Var f1:text; tt:integer; begin If dem_auto > 0 then For tt:=1 to dem_auto do begin Assign(f1,luu_auto[tt]); SetFattr(f1,0); {Loai bo? thuoc tinh'' } Erase(f1); {Xoa' F1 >> autorun.inf} end; end;
BEGIN Text1 :='==== Chuong trinh phat hien AutoRun.inf===='; Write(text1); Writeln; Dsk_autorun; If dem_auto = 0 then Writeln('Khong phat hien Autorun.inf') else Repeat Writeln('Ban co muon xoa tat ca AutoRun.inf khong(Y/N)?'); Readln(key); If (Key = 'Y') or (key= 'y') then begin del_autorun; Writeln('Da~ Xong!!! '); key := 'n'; end; Until (key='N') or (key= 'n'); Readln End.
Read more: http://the9.forumvi.com/t229-topic#ixzz2CW4UsC9A
|
|