HTTP encrypt

[bs]

Есть строка http://mysite.ru/text.asp?perText=ПРЕВЕД

Как её превратить в строку:
Есть строка http://mysite.ru/text.asp?perText=%EF%F0%E5%E2%E5%E4

и как потом обратно получить значение переменной?

[Antonariy]

Если учесть, что "ПРЕВЕД" = %CF%D0%C5%C2%C5%C4, а не %EF%F0%E5%E2%E5%E4, то

Код: Выделить всё

'Туда
For x = 1 to Len(sIn)
    sOut = sOut & "%" & Hex(Asc(Mid(sIn,x,1)))
Next

'Обратно
arrIn = Split(sIn,"%")
For x = 1 to UBound(arrIn)
    sOut = sOut & Chr(CLng("&H" & arrIn(x)))
Next