Set F374 = CreateObject("Scripting.Filesystemobject")
Set F8b6 = F374.Opentextfile("D:\VM_Shared\706545925.vbs", 1)
Do Until F8b6.Atendofstream
Ccd4 = Trim(F8b6.Readline)
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
