Chương trình phát hiện autorun.inf bằng Pascal

[tantran24]

Đây là chương trình phát hiện và xóa autorun.inf trong ổ đĩa được viết bằng pascal của ghostdragon94 [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Chắc chắn nó sẽ không hoàn hảo bởi vì ... được viết bằng pascal mà [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Có gì sai sót mong AE đóng góp ý kiến nhé :
Giao diện chương trình:



Download:http://www.4shared.com/file/qVJ-J0jd/AUTORUN.html
Bạn nào muốn lấy code thì pm cho tôi nhé::book:
[email protected]

[hoaican]

Hì send Luôn code cho mọi người. Có ji` sai mong mọi người góp ý kiến nhé hoặc tìm ra cách tối ưu hơn [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

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 [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');
              Writeln('==== ..... [email protected]<script data-cfhash='f9e31' type="text/javascript">/* <![CDATA[ */!function(t,e,r,n,c,a,p){try{t=document.currentScript||function(){for(t=document.getElementsByTagName('script'),e=t.length;e--;)if(t[e].getAttribute('data-cfhash'))return t[e]}();if(t&&(c=t.previousSibling)){p=t.parentNode;if(a=c.getAttribute('data-cfemail')){for(e='',r='0x'+a.substr(0,2)|0,n=2;a.length-n;n+=2)e+='%'+('0'+('0x'+a.substr(n,2)^r).toString(16)).slice(-2);p.replaceChild(document.createTextNode(decodeURIComponent(e)),c)}p.removeChild(t)}}catch(u){}}()/* ]]> */</script> ..... ====');
                Write('  PRESS ANY KEY TO EXIT  ');
              Readln;
End.