Jump to content
Sign in to follow this  

convert vb code

Recommended Posts


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)

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

    End Function


Edited by shai

Share this post

Link to post
Share on other sites

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:




√-1 2^3 ∑ π, and it was delicious!

Share this post

Link to post
Share on other sites

i know but i need the my Decrypt.

Share this post

Link to post
Share on other sites

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)

    ; 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)
    Return StringStripWS($sDecrypt, BitOR($STR_STRIPTRAILING, $STR_STRIPTRAILING))
EndFunc   ;==>MyDecryptWhichIsSuperAwesome


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  


Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.