creativeartist
07-26-2007, 02:17 AM
hi,
I need this function converted to PHP
Function AscEncode(ByVal str)
Dim i
Dim sAscii
sAscii = ""
For i = 1 To Len(str)
sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1))))
Next
AscEncode = sAscii
End Function
I am stuck with (Hex(Asc(Mid(str, i, 1)))) functions.I donot know how to convert a string to ASCII and HEX.I need a quick help
I need this function converted to PHP
Function AscEncode(ByVal str)
Dim i
Dim sAscii
sAscii = ""
For i = 1 To Len(str)
sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1))))
Next
AscEncode = sAscii
End Function
I am stuck with (Hex(Asc(Mid(str, i, 1)))) functions.I donot know how to convert a string to ASCII and HEX.I need a quick help
