Jump to content
Sign in to follow this  
shai

convert vb code

Recommended Posts

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 by shai

Share this post


Link to post
Share on other sites
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

 


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

Share this post


Link to post
Share on other sites
shai

i know but i need the my Decrypt.

Share this post


Link to post
Share on other sites
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

 


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  

×