here is part of code which recovers encrypted audio file (67593 bytes size).
I want modify encryption method used for wav file to other method, for example HEX, so encoded file will be like this (%71%77%65%72%74%79%20%63%76%62%6E% ... ... 6D%6D)
How to modify code for use with Hex encoded strings?
Code:
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")
Set f = fso.OpenTextFile("audio.wav", 2, True)
For i = 0 To 67593
f.write(b(i))
Next
f.close()
.....
.....
How to modify code for use with Hex encoded strings?