reverse of server.URLEncode()

nope, i'm not using it in a querystring.
I'm using it with my encrypted string
The enrypted string has funny characters, so that why i use with URLEncode
I dont think it helps by just reading the value of the string

Hi nguyenn,

You can use the URLDecode function.(ASP)

Try this code for VB
Public Function URLEncode(StringToEncode As String, Optional _
   UsePlusRatherThanHexForSpace As Boolean = False) As String

Dim TempAns As String
Dim CurChr As Integer
CurChr = 1
Do Until CurChr - 1 = Len(StringToEncode)
  Select Case Asc(Mid(StringToEncode, CurChr, 1))
    Case 48 To 57, 65 To 90, 97 To 122
      TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
    Case 32
      If UsePlusRatherThanHexForSpace = True Then
        TempAns = TempAns & "+"
      Else
        TempAns = TempAns & "%" & Hex(32)
      End If
   Case Else
         TempAns = TempAns & "%" & _
              Format(Hex(Asc(Mid(StringToEncode, _
              CurChr, 1))), "00")
End Select

  CurChr = CurChr + 1
Loop

URLEncode = TempAns
End Function


Public Function URLDecode(StringToDecode As String) As String

Dim TempAns As String
Dim CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToDecode)
  Select Case Mid(StringToDecode, CurChr, 1)
    Case "+"
      TempAns = TempAns & " "
    Case "%"
      TempAns = TempAns & Chr(Val("&h" & _
         Mid(StringToDecode, CurChr + 1, 2)))
       CurChr = CurChr + 2
    Case Else
      TempAns = TempAns & Mid(StringToDecode, CurChr, 1)
  End Select

CurChr = CurChr + 1
Loop

URLDecode = TempAns
End Function


' URLDecode function in Perl for reference
' both VB and Perl versions must return same
'
' sub urldecode{
'  local($val)=@_;
'  $val=~s/\+/ /g;
'  $val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;
'  return $val;
' }


Cheers!

hi Kar10s,

How to use URLDecode function in ASP?

thanks

i found this function, but it doesnt work, it returns null value why i try to reverse it



Function URLDecode(ByVal What)
'URL decode Function
  Dim Pos, pPos

  'replace + To Space
  What = Replace(What, "+", " ")

  on error resume Next
  Dim Stream: Set Stream = CreateObject("ADODB.Stream")
  If err = 0 Then 'URLDecode using ADODB.Stream, If possible
    on error goto 0
    Stream.Type = 2 'String
    Stream.Open

    'replace all %XX To character
    Pos = InStr(1, What, "%")
    pPos = 1
    Do While Pos > 0
      Stream.WriteText Mid(What, pPos, Pos - pPos) + _
        Chr(CLng("&H" & Mid(What, Pos + 1, 2)))
      pPos = Pos + 3
      Pos = InStr(pPos, What, "%")
    Loop
    Stream.WriteText Mid(What, pPos)

    'Read the text stream
    Stream.Position = 0
    URLDecode = Stream.ReadText

    'Free resources
    Stream.Close
  Else 'URL decode using string concentation
    on error goto 0
    'UfUf, this is a little slow method.
    'Do Not use it For data length over 100k
    Pos = InStr(1, What, "%")
    Do While Pos>0
      What = Left(What, Pos-1) + _
        Chr(Clng("&H" & Mid(What, Pos+1, 2))) + _
        Mid(What, Pos+3)
      Pos = InStr(Pos+1, What, "%")
    Loop
    URLDecode = What
  End If
End Function

By using your second function, the result i got doesnt match exact my string before using server.URLEncode function.

i.e. These steps i've done:
1/ my original string: testing
2/ Using URLEncode to encode it
3/ Using your function to decrypt it
4/ I got: testiã

thanks

i just curious, if i want to use the URLEncode in VB for testing, what function i should use?

thanks

oh never mind

i miss your first function above, i thought both are the same function

thanks

Use Unescape()

The Unescape() function in VBScript is poorly documented, but it works like the JScript unescape(). It reverses URLEncoding.

<%
MyUrlDecodedString = Unescape(string)
%>

BTW you can also use Escape() to Encode a string

I tried to reverse the string "testing" encrypted by by using Unescape() function, and i got: "teÖting"

thanks

it seems working if i create a string, then encrypt using my function, then decrypt it as follow

Password before encrypt: testing


Password encrypted: x¸š4S¡


Password URLEncrypt using URLEncryp: x%B8%9A4%8DS%A1


URLEncode reverse using Unescape: x¸š4S¡


Password decrypted using Unescape: testing


but if i save my encrypted password to database, pull it out to decrypt, then it doesnt match with the original string "testing"

I tried to login using my decrypted password, and it works!

I'm lost here.

thanks

Better use Escape() to encode and Unescape() to decode. Those two are complient. Server.URLEncode is sometimes a bit different from Escape().

if i use Escapte() and Unescapte() in ASP, do we have any similar functions in VB?

Since i need to create a tool to decrypt all passwrd in database, i prefere using VB code

thanks

>>  i prefere using VB code

Escape() and Unescape() ARE VBScript functions !!!!!!!!!!!!!!!!

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriversioninformation.asp

support since version 5.0

and how to use those functions in a vb appl? What component i should include in my app?

thanks

component? You can use it in VBScript just like any function.

i got an error when compiling, "sub or function not defined" at UnEscape()

a string i encode in the asp, then using the above function to decrypt,  the result doesnt match with the original string.

Hi all Experts,

I have found a way to encrypt and decrypt, the functions i found can work for both VB or VBScript. Believe or not, all of the functions you have provided dont work in my case, i have different result when encrypt in ASP and decrypt in Visual Basic.

Since sybe has given the most suggestions and follow up my questions, i would reward all points to him.

thanks all for your help, i really appreciated.
nguyenn

So what was the solution?

if you wanna know, post a new question

http://www.experts-exchange.com/Web/Web_Languages/ASP/help.jsp#hi70

I have the same exact problem. nguyenn please provide the solution.