标题: [原创]我再发个mail.vbs [打印本页]

---

作者: correy     时间: 2007-10-6 08:25    标题: [原创]我再发个mail.vbs


───────────────────　版务记录　────────────────────
执行：lxmxn
标题：[原创]我再发个mail.vbs
说明：因标题表述过于模糊，不便于论坛的搜索和管理，请在三日内修改标题，否则扣除2点积分
参考：http://www.cn-dos.net/forum/viewthread.php?tid=7326&fpage=1
　　　http://community.csdn.net/IndexPage/SmartQuestion.aspx
───────────────────　版务记录　────────────────────



On Error GoTo 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)
a= chr (97)
for x=97 to 121
a=a&chr(x+1)
next
letter.WriteLine(a)

n= chr (48)
for x=48 to 56
n=n&chr(x+1)
next
letter.WriteLine(n)

l=a&la
bl=a&la&n
sl=a&n

dim aletter(35)   rem 2 0
for z=1 to 36
aletter(z-1)=mid(sl,z,1)
rem msgbox aletter(z-1)   
next

dim al(25)
for z=1 to 26
al(z-1)=mid(a,z,1)
rem msgbox al(z-1)   
next   rem 30

for z=1 to 26
    s=al(z-1)
    for z1=1 to 26
       s1="."&al(z1-1)&s
       for z2=1 to 26
          s2=al(z2-1)&s1
          for z3=1 to 26
             s3=al(z3-1)&s2
             for z4=1 to 26         
                s4="."&al(z4-1)&s3
                for z5=1 to 36
                   s5=aletter(z5-1)&s4
                   for z6=1 to 36  ''50
                      s6=aletter(z6-1)&s5
                      for z7=1 to 36   
                         s7=aletter(z7-1)&s6
                         for z8=1 to 36
                            s8=aletter(z8-1)&s7
                            for z9=1 to 36         
                               s9=aletter(z9-1)&s8  ''60
                               for z10=1 to 36  
                                  s10="@"&aletter(z10-1)&s9
                                  for z11=1 to 36
                                     s11=aletter(z11-1)&s10
                                     for z12=1 to 36
                                        s12=aletter(z12-1)&s11
                                        for z13=1 to 36   ''70
                                           s13=aletter(z13-1)&s12
                                           for z14=1 to 36
                                              s14=aletter(z14-1)&s13
                                              for z15=1 to 36
                                                 s15=aletter(z15-1)&s14
                                                 for z16=1 to 36
                                                    s16=aletter(z16-1)&s15
                                                    for z17=1 to 36
                                                       s17=aletter(z17-1)&s16
                                                       for z18=1 to 36
                                                          s18=aletter(z18-1)&s17
                                                          for z19=1 to 36
                                                             s19=aletter(z19-1)&s18
                                                             msgbox s19
                                                          next
                                                       next
                                                    next
                                                 next
                                              next
                                           next
                                        next
                                     next
                                  next
                               next
                            next
                         next
                      next
                   next
                next
             next
          next
       next
    next
next

[ Last edited by lxmxn on 2007-10-6 at 09:02 AM ]

---

作者: electronixtar     时间: 2007-10-6 11:19
看到那华丽的一条整齐的next我就 囧了

orz

---

作者: htun     时间: 2007-10-9 11:52
到底是什么来的嘛

---

作者: wssl22     时间: 2007-10-9 12:42
这是个可做为病毒的片段!不要轻意运行,除非你准备好了!