Lớp tôi
Này thím!!!Đăng kí đê
Mấy bạn Hai lúa nào không biết thì (Đăng kí) nó ở trên thanh menu (Đầu trang)đó
Lớp tôi

NƠI GIAO LƯU, HỌC HỎI, CHAT CHIT VÀ....TÁN GÁI
 
IndexIndex  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  
Bài gửi sau cùng
Bài gửiNgười gửiThời gian
[�] Hướng dẫn chế truyện troll đây. Wed Nov 28, 2012 8:58 am
[�] Kể về hình ảnh bà trog Bếp lửa' của Bằng Việt Wed Nov 07, 2012 12:07 pm
[�] Em hãy kể lại bài thơ Ánh trăng của Nguyễn Duy Wed Nov 07, 2012 11:40 am
[�] Wh - questions, Gerund, To - infinitive Tue Nov 06, 2012 6:51 pm
[�] Gerund and Infinitive--unit 5 Tue Nov 06, 2012 6:44 pm
[�] Cach dung Photoscape Tue Nov 06, 2012 5:48 pm
[�] cách làm đô rê mon chế Mon Nov 05, 2012 9:25 pm
[�] Key Norton Internet Security 2012 Mon Nov 05, 2012 12:50 pm
[�] TLV số 3-Đề 4:Kể về cuộc gặp gỡ các anh bộ đội....nhân ngày 22/12....... Sun Nov 04, 2012 6:19 pm
[�] Đề 3 TLV số 3:Nhân dịp 20/11.....kể...kỉ niệm với thầy cô giáo cũ Sun Nov 04, 2012 6:04 pm
[�] Bài TLV số 3-Đề 2: Em hãy tưởng tượng mình gặp gỡ người lính lái xe trong tiểu đội xe không kính..... Sun Nov 04, 2012 6:00 pm
[�] Bài TLV số 3-Đề 1: Kể về 1 lần em trót đọc nhật kí của bạn Sun Nov 04, 2012 5:52 pm
[�] Phần mềm lịch sử địa lý Việt Nam Sun Nov 04, 2012 12:37 pm
[�] IDM full crack 2012 Sun Nov 04, 2012 12:32 pm
[�] Phần mềm hóa học của người Việt Sun Nov 04, 2012 12:07 pm
[�] Bí Kíp Quay Cóp ! Thu Nov 01, 2012 10:48 pm
[�] Thông tin thành viên Thu Nov 01, 2012 10:38 pm
[�] Mách teen cuối cấp ‘địa chỉ’ cất giữ kỉ niệm-Lưu giữ địa chỉ của lớp Thu Nov 01, 2012 9:37 pm
[�] Những điều cần làm để lưu giữ kỷ niệm trước khi ra trường Thu Nov 01, 2012 9:29 pm
[�] Phương pháp giải hệ phương trình Wed Oct 31, 2012 8:08 pm

____________________________________________________________________________
Trang 1 trong tổng số 1 trang
Bài gửiThời gian: Tue Oct 30, 2012 5:22 pm
#1
duc nguyen
2/10000
Tổng số bài gửi : 2
Join date : 03/08/2012
Diet virus Autorun bang Pascal
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
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. asdfg xdfc ztjtb
Xem lý lịch thành viên
Trả lời chủ đề này
Chủ đề trước Chủ đề tiếp theoTrang 1 trong tổng số 1 trang
Diet virus Autorun bang Pascal
arrow

Lưu ý khi post comment:

  • Không "bóc tem" topic
  • Dùng lời lẽ có văn hoá và lịch sự
  • Xem trang FAQs trước khi hỏi
Bạn không có quyền trả lời bài viết

HTML đang Đóng
BBCode đang Mở
Hình vui đang Mở