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:




"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

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


UDF List:

_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_ArrayFilter/_ArrayReduce_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: 22/04/2018

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...