Password Protect Code

[GoravG]

Password Protect.rar

This is example script, 1.Protect your script code with password. 2.Read password in resources data and file. Edited April 28, 2015 by GoravG

[water]

Could you please add some description what your code is all about?

[JohnOne]

The code...

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.0
 Author:         GoravG

#ce ----------------------------------------------------------------------------

Func _stringencrypt($i_encrypt, $s_encrypttext, $s_encryptpassword, $i_encryptlevel = 1)
    If $i_encrypt <> 0 AND $i_encrypt <> 1 Then
        SetError(1, 0, "")
    ElseIf $s_encrypttext = "" OR $s_encryptpassword = "" Then
        SetError(1, 0, "")
    Else
        If Number($i_encryptlevel) <= 0 OR Int($i_encryptlevel) <> $i_encryptlevel Then $i_encryptlevel = 1
        Local $v_encryptmodified
        Local $i_encryptcounth
        Local $i_encryptcountg
        Local $v_encryptswap
        Local $av_encryptbox[256][2]
        Local $i_encryptcounta
        Local $i_encryptcountb
        Local $i_encryptcountc
        Local $i_encryptcountd
        Local $i_encryptcounte
        Local $v_encryptcipher
        Local $v_encryptcipherby
        If $i_encrypt = 1 Then
            For $i_encryptcountf = 0 To $i_encryptlevel Step 1
                $i_encryptcountg = ""
                $i_encryptcounth = ""
                $v_encryptmodified = ""
                For $i_encryptcountg = 1 To StringLen($s_encrypttext)
                    If $i_encryptcounth = StringLen($s_encryptpassword) Then
                        $i_encryptcounth = 1
                    Else
                        $i_encryptcounth += 1
                    EndIf
                    $v_encryptmodified = $v_encryptmodified & Chr(BitXOR(Asc(StringMid($s_encrypttext, $i_encryptcountg, 1)), Asc(StringMid($s_encryptpassword, $i_encryptcounth, 1)), 255))
                Next
                $s_encrypttext = $v_encryptmodified
                $i_encryptcounta = ""
                $i_encryptcountb = 0
                $i_encryptcountc = ""
                $i_encryptcountd = ""
                $i_encryptcounte = ""
                $v_encryptcipherby = ""
                $v_encryptcipher = ""
                $v_encryptswap = ""
                $av_encryptbox = ""
                Local $av_encryptbox[256][2]
                For $i_encryptcounta = 0 To 255
                    $av_encryptbox[$i_encryptcounta][1] = Asc(StringMid($s_encryptpassword, Mod($i_encryptcounta, StringLen($s_encryptpassword)) + 1, 1))
                    $av_encryptbox[$i_encryptcounta][0] = $i_encryptcounta
                Next
                For $i_encryptcounta = 0 To 255
                    $i_encryptcountb = Mod(($i_encryptcountb + $av_encryptbox[$i_encryptcounta][0] + $av_encryptbox[$i_encryptcounta][1]), 256)
                    $v_encryptswap = $av_encryptbox[$i_encryptcounta][0]
                    $av_encryptbox[$i_encryptcounta][0] = $av_encryptbox[$i_encryptcountb][0]
                    $av_encryptbox[$i_encryptcountb][0] = $v_encryptswap
                Next
                For $i_encryptcounta = 1 To StringLen($s_encrypttext)
                    $i_encryptcountc = Mod(($i_encryptcountc + 1), 256)
                    $i_encryptcountd = Mod(($i_encryptcountd + $av_encryptbox[$i_encryptcountc][0]), 256)
                    $i_encryptcounte = $av_encryptbox[Mod(($av_encryptbox[$i_encryptcountc][0] + $av_encryptbox[$i_encryptcountd][0]), 256)][0]
                    $v_encryptcipherby = BitXOR(Asc(StringMid($s_encrypttext, $i_encryptcounta, 1)), $i_encryptcounte)
                    $v_encryptcipher &= Hex($v_encryptcipherby, 2)
                Next
                $s_encrypttext = $v_encryptcipher
            Next
        Else
            For $i_encryptcountf = 0 To $i_encryptlevel Step 1
                $i_encryptcountb = 0
                $i_encryptcountc = ""
                $i_encryptcountd = ""
                $i_encryptcounte = ""
                $v_encryptcipherby = ""
                $v_encryptcipher = ""
                $v_encryptswap = ""
                $av_encryptbox = ""
                Local $av_encryptbox[256][2]
                For $i_encryptcounta = 0 To 255
                    $av_encryptbox[$i_encryptcounta][1] = Asc(StringMid($s_encryptpassword, Mod($i_encryptcounta, StringLen($s_encryptpassword)) + 1, 1))
                    $av_encryptbox[$i_encryptcounta][0] = $i_encryptcounta
                Next
                For $i_encryptcounta = 0 To 255
                    $i_encryptcountb = Mod(($i_encryptcountb + $av_encryptbox[$i_encryptcounta][0] + $av_encryptbox[$i_encryptcounta][1]), 256)
                    $v_encryptswap = $av_encryptbox[$i_encryptcounta][0]
                    $av_encryptbox[$i_encryptcounta][0] = $av_encryptbox[$i_encryptcountb][0]
                    $av_encryptbox[$i_encryptcountb][0] = $v_encryptswap
                Next
                For $i_encryptcounta = 1 To StringLen($s_encrypttext) Step 2
                    $i_encryptcountc = Mod(($i_encryptcountc + 1), 256)
                    $i_encryptcountd = Mod(($i_encryptcountd + $av_encryptbox[$i_encryptcountc][0]), 256)
                    $i_encryptcounte = $av_encryptbox[Mod(($av_encryptbox[$i_encryptcountc][0] + $av_encryptbox[$i_encryptcountd][0]), 256)][0]
                    $v_encryptcipherby = BitXOR(Dec(StringMid($s_encrypttext, $i_encryptcounta, 2)), $i_encryptcounte)
                    $v_encryptcipher = $v_encryptcipher & Chr($v_encryptcipherby)
                Next
                $s_encrypttext = $v_encryptcipher
                $i_encryptcountg = ""
                $i_encryptcounth = ""
                $v_encryptmodified = ""
                For $i_encryptcountg = 1 To StringLen($s_encrypttext)
                    If $i_encryptcounth = StringLen($s_encryptpassword) Then
                        $i_encryptcounth = 1
                    Else
                        $i_encryptcounth += 1
                    EndIf
                    $v_encryptmodified &= Chr(BitXOR(Asc(StringMid($s_encrypttext, $i_encryptcountg, 1)), Asc(StringMid($s_encryptpassword, $i_encryptcounth, 1)), 255))
                Next
                $s_encrypttext = $v_encryptmodified
            Next
        EndIf
        Return $s_encrypttext
    EndIf
EndFunc

Global Const $mb_systemmodal = 4096
Global Const $hgdi_error = Ptr(-1)
Global Const $invalid_handle_value = Ptr(-1)
Global Const $kf_extended = 256
Global Const $kf_altdown = 8192
Global Const $kf_up = 32768
Global Const $llkhf_extended = BitShift($kf_extended, 8)
Global Const $llkhf_altdown = BitShift($kf_altdown, 8)
Global Const $llkhf_up = BitShift($kf_up, 8)
Global Const $load_library_as_datafile = 2
Global Const $tagrect = "struct;long Left;long Top;long Right;long Bottom;endstruct"
Global Const $taggdipstartupinput = "uint Version;ptr Callback;bool NoThread;bool NoCodecs"
Global Const $tagrebarbandinfo = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader" & ((@OSVersion = "WIN_XP") ? "" : ";" & $tagrect & ";uint uChevronState")

Func _winapi_freelibrary($hmodule)
    Local $aresult = DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hmodule)
    If @error Then Return SetError(@error, @extended, False)
    Return $aresult[0]
EndFunc

Func _winapi_getmodulehandle($smodulename)
    Local $smodulenametype = "wstr"
    If $smodulename = "" Then
        $smodulename = 0
        $smodulenametype = "ptr"
    EndIf
    Local $aresult = DllCall("kernel32.dll", "handle", "GetModuleHandleW", $smodulenametype, $smodulename)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Func _winapi_loadimage($hinstance, $simage, $itype, $ixdesired, $iydesired, $iload)
    Local $aresult, $simagetype = "int"
    If IsString($simage) Then $simagetype = "wstr"
    $aresult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hinstance, $simagetype, $simage, "uint", $itype, "int", $ixdesired, "int", $iydesired, "uint", $iload)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Func _winapi_loadlibraryex($sfilename, $iflags = 0)
    Local $aresult = DllCall("kernel32.dll", "handle", "LoadLibraryExW", "wstr", $sfilename, "ptr", 0, "dword", $iflags)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Global Const $tagosversioninfo = "struct;dword OSVersionInfoSize;dword MajorVersion;dword MinorVersion;dword BuildNumber;dword PlatformId;wchar CSDVersion[128];endstruct"
Global Const $__winver = __winver()

Func __winver()
    Local $tosvi = DllStructCreate($tagosversioninfo)
    DllStructSetData($tosvi, 1, DllStructGetSize($tosvi))
    Local $ret = DllCall("kernel32.dll", "bool", "GetVersionExW", "struct*", $tosvi)
    If @error OR NOT $ret[0] Then Return SetError(@error, @extended, 0)
    Return BitOR(BitShift(DllStructGetData($tosvi, 2), -8), DllStructGetData($tosvi, 3))
EndFunc

Global $ghgdipdll = 0
Global $gigdipref = 0
Global $gigdiptoken = 0
Global $gbgdip_v1_0 = True

Func _gdiplus_startup($sgdipdll = Default)
    $gigdipref += 1
    If $gigdipref > 1 Then Return True
    If $sgdipdll = Default Then
        If @OSBuild > 4999 AND @OSBuild < 7600 Then
            $sgdipdll = @WindowsDir & "\winsxs\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.6000.16386_none_8df21b8362744ace\gdiplus.dll"
        Else
            $sgdipdll = "gdiplus.dll"
        EndIf
    EndIf
    $ghgdipdll = DllOpen($sgdipdll)
    If $ghgdipdll = -1 Then
        $gigdipref = 0
        Return SetError(1, 2, False)
    EndIf
    Local $sver = FileGetVersion($sgdipdll)
    $sver = StringSplit($sver, ".")
    If $sver[1] > 5 Then $gbgdip_v1_0 = False
    Local $tinput = DllStructCreate($taggdipstartupinput)
    Local $ttoken = DllStructCreate("ulong_ptr Data")
    DllStructSetData($tinput, "Version", 1)
    Local $aresult = DllCall($ghgdipdll, "int", "GdiplusStartup", "struct*", $ttoken, "struct*", $tinput, "ptr", 0)
    If @error Then Return SetError(@error, @extended, False)
    If $aresult[0] Then Return SetError(10, $aresult[0], False)
    $gigdiptoken = DllStructGetData($ttoken, "Data")
    Return True
EndFunc

_gdiplus_startup()
Global Const $rt_bitmap = 2

Func _resourceget($resname, $restype = 10, $reslang = 0, $dll = -1)
    Local Const $image_bitmap = 0
    Local $hinstance, $hbitmap, $infoblock, $globalmemoryblock, $memorypointer, $ressize
    If $dll = -1 Then
        $hinstance = _winapi_getmodulehandle("")
    Else
        $hinstance = _winapi_loadlibraryex($dll, $load_library_as_datafile)
    EndIf
    If $hinstance = 0 Then Return SetError(1, 0, 0)
    If $restype = $rt_bitmap Then
        $hbitmap = _winapi_loadimage($hinstance, $resname, $image_bitmap, 0, 0, 0)
        If @error Then Return SetError(2, 0, 0)
        Return $hbitmap
    EndIf
    If $reslang <> 0 Then
        $infoblock = DllCall("kernel32.dll", "ptr", "FindResourceExW", "ptr", $hinstance, "long", $restype, "wstr", $resname, "short", $reslang)
    Else
        $infoblock = DllCall("kernel32.dll", "ptr", "FindResourceW", "ptr", $hinstance, "wstr", $resname, "long", $restype)
    EndIf
    If @error Then Return SetError(3, 0, 0)
    $infoblock = $infoblock[0]
    If $infoblock = 0 Then Return SetError(4, 0, 0)
    $ressize = DllCall("kernel32.dll", "dword", "SizeofResource", "ptr", $hinstance, "ptr", $infoblock)
    If @error Then Return SetError(5, 0, 0)
    $ressize = $ressize[0]
    If $ressize = 0 Then Return SetError(6, 0, 0)
    $globalmemoryblock = DllCall("kernel32.dll", "ptr", "LoadResource", "ptr", $hinstance, "ptr", $infoblock)
    If @error Then Return SetError(7, 0, 0)
    $globalmemoryblock = $globalmemoryblock[0]
    If $globalmemoryblock = 0 Then Return SetError(8, 0, 0)
    $memorypointer = DllCall("kernel32.dll", "ptr", "LockResource", "ptr", $globalmemoryblock)
    If @error Then Return SetError(9, 0, 0)
    $memorypointer = $memorypointer[0]
    If $memorypointer = 0 Then Return SetError(10, 0, 0)
    If $dll <> -1 Then _winapi_freelibrary($hinstance)
    If @error Then Return SetError(11, 0, 0)
    SetExtended($ressize)
    Return $memorypointer
EndFunc

Func _resourcegetasstring($resname, $restype = 10, $reslang = 0, $dll = -1)
    Local $respointer, $ressize, $struct
    $respointer = _resourceget($resname, $restype, $reslang, $dll)
    If @error Then
        SetError(1, 0, 0)
        Return ""
    EndIf
    $ressize = @extended
    $struct = DllStructCreate("char[" & $ressize & "]", $respointer)
    Return DllStructGetData($struct, 1)
EndFunc

Global Const $gui_event_close = -3
Local $iloop = 1, $stext = ""
While $iloop = 1
    $stext = _stringencrypt(0, "CF949B669FFAF92CF2B885016CDEBD4593CAAC0E45157565D3ACC8C9F444D70144B9DB550D69A99E9E068C9FDE5B", _resourcegetasstring("PASS_TXT"), 1)
    If @error = 1 Then
        Exit
    Else
        If $stext <> "545646446gd4gs6g4s6gaga" Then
            MsgBox($mb_systemmodal, "Error", "You Enter Wrong Password - Try Again!")
        Else
            $iloop = 0
        EndIf
    EndIf
WEnd

Local $pass = _stringencrypt(0, FileRead(@ScriptDir & "\Pass.txt"), _resourcegetasstring("PASS_TXT"), 1)
Local $gn = _stringencrypt(0, "F673879BAABE9F688ABD", $pass, 1)
Local $gl1 = _stringencrypt(0, "F770869BAABE98698ABED14676B5BA58504E81174CC1C93E", $pass, 1)
Local $gl2 = _stringencrypt(0, "F70D879CADCA9F178BCBD14A75C6", $pass, 1)
Local $gl3 = _stringencrypt(0, "F67187EDAABC98608BBED14B76B5BF5B", $pass, 1)
Local $gl4 = _stringencrypt(0, "F67187EDADC89F648ABFD14C75B0BE50553D", $pass, 1)
$mgui = GUICreate($gn, 321, 246)
$groupbox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
$image1 = GUICtrlCreatePic("", 16, 24, 105, 97)
$label1 = GUICtrlCreateLabel($gl1, 152, 24, 72, 17)
$label2 = GUICtrlCreateLabel($gl2, 152, 48, 39, 17)
$label4 = GUICtrlCreateLabel($gl3, 16, 160, 53, 17)
$label3 = GUICtrlCreateLabel($gl4, 16, 136, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button1 = GUICtrlCreateButton("&OK", 124, 208, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nmsg = GUIGetMsg()
    Switch $nmsg
        Case $gui_event_close, $button1
            Exit
    EndSwitch
WEnd

Pass.txt

CFEF9B1B9FFCF955F2B98501

PASS_TXT.txt

248546312121

 

[czyt]

I don't know how to use it~could you please explain it?

[BrewManNH]

I hope you realize that no where in this script do you ever actually encrypt anything? Every call to "your" _stringencrypt function is telling it to decrypt  it. BTW, you should always use the UDF functions inside the UDFs and not strip them out like you've done. If there are any bugs discovered after you post your script then your script won't get updated.

Also, _StringEncrypt isn't a very good encryption method, it's extremely slow with large strings, which is one of the reasons it was removed from the standard UDF includes with AutoIt. The stringencrypt function in this script is a letter for letter copy of the one that used to come with AutoIt.

[jchd]

_StringEncrypt isn't a very good encryption method, it's extremely slow with large strings

and only provides very weak crypto (kid sister type) ... and it's buggy as hell for small strings.

This thread deserves the neighbourhood of a massive black hole.

[GoravG]

This is only example read password resources data and file with encrypt, and you use other encrypt method to encrypt script code with password and add password resources data and file.......

Sorry I am late to reply opera not support update forum...

[GoravG]

czyt

Add this code and compile script

#AutoIt3Wrapper_Res_File_Add=PASS_TXT.txt, rt_rcdata, PASS_TXT

more information read topic Resources UDF..