Simple way to encrypt URL's

[Madboy]

Private Function Encrypt(strInput As String) As String
  Dim letters As String
  Dim encArr() As Variant
  Dim daChar As String
  Dim strOutput As String
  
  letters = "abcdefghijklmnopqrstuvwxyz/.1234567890~_:"
  
  encArr = Array("%61", "%62", "c", "%64", "e", "%66", "%67", "%68", "%69", _
      "%6a", "%6b", "%6c", "m", "n", "o", "%70", "%71", "%72", "%73", "t", "%75", _
      "%76", "w", "%78", "%79", "%7a", "/", ".", "1", "2", "3", "4", "5", "6", "7", _
      "8", "9", "0", "~", "_", "!", ":")
 
  For i = 1 To Len(strInput)
    daChar = Mid(strInput, i, 1)
    
    For e = 1 To Len(letters)
        If daChar = Mid(letters, e, 1) Then
            strOutput = strOutput & encArr(e - 1)
            Exit For
        End If
    Next
Next
 
Encrypt = strOutput
End Function
 
Private Sub cmdEncrypt_Click()
txtEncryptedURL.Text = Encrypt(txtURL.Text)
End Sub

[visualAd]

What does that do?

[Madboy]

it encodes the text

I had this in delphi too, cant find the bugger though

[visualAd]

it encodes the text

That function partly URL encodes the text. But URL encoding is not meant for letters and numbers it was designed to encode special characters like @, =, & etc.

This isn't encryption eiether, it is encoding which is used to make data safe for transport over the Internet via a URL or HTTP request.

This function encodes a URL. Notice how it only replces characters which are are not letters or numbers:

' url encodes a string
Function URLEncode(ByVal str As String) As String
        Dim intLen As Integer
        Dim X As Integer
        Dim curChar As Long
        Dim newStr As String
                
        intLen = Len(str)
        newStr = ""
        
        ' encode anything which is not a letter or number
        For X = 1 To intLen
            curChar = Asc(Mid$(str, X, 1))
            
            
            If curChar = 32 Then
                ' we can use a + sign for a space
                newStr = newStr & "+"
            ElseIf (curChar < 48 Or curChar > 57) And _
                (curChar < 65 Or curChar > 90) And _
                (curChar < 97 Or curChar > 122) Then
                
                newStr = newStr & "%" & Hex(curChar)
            Else
                newStr = newStr & Chr(curChar)
            End If
        Next X
        
        URLEncode = newStr
End Function

[Madboy]

And the Delphi.......please?

[visualAd]

And the Delphi.......please?

What delphi?

[Madboy]

Whats the delphi code equivelant?

[Madboy]

Would you please help me to convert this Visual Basic code from above, so i may use it in a Delphi application?

Thanks

[visualAd]

Remember, strings are arrays in Delphi. Use the Length function to determine the length of the string. Use its index to extract a single character you address the string like you would an array. You can use the ord function to get the ascii value of a character.

[Madboy]

Ok, i have been on the best part of an hour trying this.
It is absolutely boggling my brain, i am not good at converting
But to show my efforts, and to show i actually tried on my own this is what i came up with
As usual i get a whole bunch of errors, too many to write up here
This is trying to convert the function you posted for VB VisualAd

function EncodeURL(ByVal str: String);
var
  intLen: Integer;
  X: Integer;
  curChar: Long;
  newStr: String;
begin
  intLen:= Length(str);
  newStr:= '';
  //encode anything which is not a letter or number
  for X:= 1 to intLen do
    curChar:= Asc(Mid$(str,X,1));
  if curChar = 32 then
    //we can use a + sign for a space
    newStr:= newStr & '+'
  else if (curChar < 48 Or curChar > 57) And (curChar < 65 Or curChar > 90) And (curChar < 97 Or curChar > 122) then
    newStr:= newStr & '%' & Hex(curChar)
  else
    newStr:= newStr & Chr(curChar)
  end
  URLEncode:= newStr;
end;

[Madboy]

still no joy, care to help a hand?