Homepage Virus

Apparently anyone infected with this virus is likely to have their homepage changed to one of 4 porn sites. If you've recently been infected, check just to make sure, before that important meeting with the boss...:D

It infectted the whole company here. It Doesnt change the homepage, I have looked (and decrypted) at the code to

hmm...we may have had a different version. oh well. Forewarned is forearmed...;)

How do you decrypt something?

Quote:

---

Originally posted by Wynd
How do you decrypt something?

---

well it had a simple function with it that wasnt enctypted

Code:

---

Function DeCode(Coded)
For I = 1 To Len(Coded)
CurChar = Mid(Coded, I, 1)
If Asc(CurChar) = 15 Then
CurChar = Chr(10)
ElseIf Asc(CurChar) = 16 Then
CurChar = Chr(13)
ElseIf Asc(CurChar) = 17 Then
CurChar = Chr(32)
ElseIf Asc(CurChar) = 18 Then
CurChar = Chr(9)
Else
CurChar = Chr(Asc(CurChar) - 2)
End If
DeCode = DeCode & CurChar
Next
End Function

---

thats it!

and it was called as

Code:

---

Excute
DeCode("and all the encrypted text here!")

---

there!!!