| Lớp tôi NƠI GIAO LƯU, HỌC HỎI, CHAT CHIT VÀ....TÁN GÁI |
Bài gửi sau cùng |
---|
Bài gửi | Người gửi | Thờ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
| | ____________________________________________________________________________ | | 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. | | |
| | 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ở |
|
|