Thư viện tin học
Chào các bạn đến với thư viện tin học.Hãy đăng kí làm thành viên để hưởng quyền lợi diễn đàn.Chỉ mất 10s thôi nhá.
Thư viện tin học
Chào các bạn đến với thư viện tin học.Hãy đăng kí làm thành viên để hưởng quyền lợi diễn đàn.Chỉ mất 10s thôi nhá.
Thư viện tin học

Thư viện thông tin
 
Trang ChínhTrang Chính  PortalPortal  GalleryGallery  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  
Latest topics
» Các file bắt buộc trong thư mục system của template Nukeviet 3
Kill Autorun.inf by Pascal Emptyby gialang8thuc Sat Jun 22, 2013 4:42 pm

» Cơ bản về Lập trình MS DOS
Kill Autorun.inf by Pascal Emptyby dammeit_apple Tue Feb 12, 2013 8:25 pm

» Instandbird-Giải pháp hoàn hảo thay thế Yahoo Messenger
Kill Autorun.inf by Pascal Emptyby Admin Mon Jan 21, 2013 1:56 pm

» Địa chỉmạng con của Internet (IP subnetting)
Kill Autorun.inf by Pascal Emptyby Dafug Sun Jan 13, 2013 9:21 pm

» Tìm hiểu về địa chỉ IP
Kill Autorun.inf by Pascal Emptyby MatCan Sun Jan 13, 2013 9:15 pm

» (Bình chọn) Phần mềm diệt virus nào tốt nhất
Kill Autorun.inf by Pascal Emptyby Admin Sun Dec 16, 2012 8:58 pm

» Các hệ điều hành Win từ trước đến nay :
Kill Autorun.inf by Pascal Emptyby MatCan Sun Dec 16, 2012 1:01 pm

» Key Win 8 tổng hợp
Kill Autorun.inf by Pascal Emptyby Programer Sun Dec 16, 2012 12:36 pm

» Key Window 8 Release Preview
Kill Autorun.inf by Pascal Emptyby Programer Sun Dec 16, 2012 12:35 pm

» [Tìm hiểu]Giao thức tải file BitTorrent
Kill Autorun.inf by Pascal Emptyby NetMan Fri Dec 14, 2012 10:13 pm

» BẢNG MÃ PHÍM MỞ RỘNG
Kill Autorun.inf by Pascal Emptyby theCer Fri Dec 14, 2012 10:07 pm

» Thư viện các hàm chuẩn.Phần 1 -assert.h
Kill Autorun.inf by Pascal Emptyby Admin Fri Dec 14, 2012 9:59 pm

» DÙNG FRAMESET ĐỂ NHÚNG CÁC TRANG WEB KHÁC VÀO TRANG WEB ĐANG MỞ
Kill Autorun.inf by Pascal Emptyby Programer Fri Dec 14, 2012 9:52 pm

» Cách chia đĩa cứng, định dạng, phân vùng trong môi trường DOS (công cụ có trong đĩa Hiren’s BootCD, DVD)
Kill Autorun.inf by Pascal Emptyby Admin Sat Dec 08, 2012 2:35 pm

» Cách chia đĩa cứng, định dạng, Phân vùng trong môi trường DOS (công cụ có trong đĩa Hiren’s BootCD, DVD)
Kill Autorun.inf by Pascal Emptyby Admin Sat Dec 08, 2012 2:34 pm

» Microsoft FrontPage 2007
Kill Autorun.inf by Pascal Emptyby Programer Sun Dec 02, 2012 7:58 pm

» tìm hiểu về ActiveX và cách cài đặt
Kill Autorun.inf by Pascal Emptyby Admin Wed Nov 28, 2012 12:57 pm

» Tận dụng mã nguồn mở để tăng tốc Firefox
Kill Autorun.inf by Pascal Emptyby NetMan Wed Nov 28, 2012 12:52 pm

» Chặn popup tốt hơn cho Firefox
Kill Autorun.inf by Pascal Emptyby NetMan Wed Nov 28, 2012 12:45 pm

» Thủ thuật tăng tốc Firefox toàn tập
Kill Autorun.inf by Pascal Emptyby theCer Wed Nov 28, 2012 12:40 pm


Share
 

 Kill Autorun.inf by Pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
Admin

Tổng số bài gửi : 60
Điểm số : 4292
Join date : 17/11/2012

Kill Autorun.inf by Pascal Empty
Bài gửiTiêu đề: Kill Autorun.inf by Pascal   Kill Autorun.inf by Pascal EmptySun 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

Về Đầu Trang Go down
https://tvtt.forumvi.com
 

Kill Autorun.inf by Pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Thư viện tin học :: Lập trình :: Pascal-