convert vb code

[shai]

someone can help me to convert this function from vb to autoit?

Public Function Decrypt(ByRef TheString As String) As String
        Const FUNCTION_ As String = "Decrypt"
        On Error GoTo func_err
        Dim i As Short
        Dim j As Short

        Dim High As Short
        Dim Low As Short

        If Left(TheString, 1) = " " Then
            ' Illegal string
            Decrypt = Right(TheString, Len(TheString) - 1)
            Exit Function
        End If

        j = 1
        For i = 1 To Len(TheString) Step 2
            High = 16 * (Asc(Mid(TheString, i, 1)) - 33)
            Low = Asc(Mid(TheString, i + 1, 1)) - 33
            Mid(Decrypt, j, 1) = Chr(High + Low)
            j = j + 1
        Next i
        Decrypt = Trim(Decrypt)

func_end:
        Exit Function
func_err:
        LastError = Err.Description
        ErrHnd(MODULE_ & FUNCTION_ & " - " & LastError)
        Resume func_end

    End Function

thanks

Edited June 15, 2015 by shai

[JLogan3o13]

Hi, Shai. While vb is pretty easily converted to AutoIt, you would be much better off looking at the inherent crypt functions contained in the language already. Take a look at the following in the help file to get you started:

 

_Crypt_DecryptData
_Crypt_EncryptData

 

[shai]

i know but i need the my Decrypt.

[guinness]

Hmmm, I am not convinced this is correct, oh well!

#include <MsgBoxConstants.au3>
#include <StringConstants.au3>

MsgBox($MB_SYSTEMMODAL, "", MyDecryptWhichIsSuperAwesome("Example") & @CRLF)

Func MyDecryptWhichIsSuperAwesome($sString)
    ; Check if the string is illegal
    If StringLeft($sString, StringLen(" ")) == " " Then
        Return StringRight($sString, StringLen($sString) - 1)
    EndIf

    ; Hold the decrypted string
    Local $sDecrypt = ""
    Local $iHigh = 0, $iLow = 0
    For $i = 1 To StringLen($sString) Step 2
        $iHigh = 16 * (Asc(StringMid($sString, $i, 1)) - 33)
        $iLow = Asc(StringMid($sString, $i + 1, 1)) - 33
        $sDecrypt &= ChrW($iHigh + $iLow)
    Next
    Return StringStripWS($sDecrypt, BitOR($STR_STRIPTRAILING, $STR_STRIPTRAILING))
EndFunc   ;==>MyDecryptWhichIsSuperAwesome