; <AUT2EXE VERSION: 3.1.1.0>
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Dokumente und Einstellungen\Siad\Desktop\my-crackme\generation 5 crackme\Rambacrackme.au3>
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Programme\AutoIt3\Include\string.au3>
; ----------------------------------------------------------------------------
;===============================================================================
;
; Function Name: _HexToStr("hex")
; Description: Convert a hex string of characters to ASCII Characters.
; Parameter(s): $strHex is the hex string you want to convert.
; Requirement(s): Hex Input.
; Return Value(s): On Success - Returns the converted string of characters.
; On Failure - -1 and sets @ERROR = 1
; Author(s): Jarvis Stubblefield
; Corrected: 2005/09/04 jpm error checking
;
;===============================================================================
Func _HexToString($strHex)
Local $strChar, $aryHex, $i, $iDec, $Char, $file, $iOne, $iTwo
$aryHex = StringSplit($strHex, "")
If Mod($aryHex[0], 2) <> 0 Then
SetError(1)
Return -1
EndIf
For $i = 1 To $aryHex[0]
$iOne = $aryHex[$i]
$i = $i + 1
$iTwo = $aryHex[$i]
$iDec = Dec($iOne & $iTwo)
If @error <> 0 Then
SetError(1)
Return -1
EndIf
$Char = Chr($iDec)
$strChar = $strChar & $Char
Next
Return $strChar
EndFunc ;==>_HexToString
;===============================================================================
;
; Function Name: _StringEncryption()
; Description: RC4 Based string encryption
; Parameter(s): $i_Encrypt - 1 to encrypt, 0 to decrypt
; $s_EncryptText - string to encrypt
; $s_EncryptPassword - string to use as an encryption password
; $i_EncryptLevel - integer to use as number of times to encrypt string
; Requirement(s): None
; Return Value(s): On Success - Returns the string encrypted (blank) times with (blank) password
; On Failure - Returns a blank string and sets @error = 1
; Author(s): Wes Wolfe-Wolvereness <Weswolf@aol.com>
;
;===============================================================================
;
Func _StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)
If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
Return ''
SetError(1)
ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
Return ''
SetError(1)
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 $i_EncryptCountF
Local $v_EncryptCipher
Local $v_EncryptCipherBy
If $i_Encrypt = 1 Then
Local $i_EncryptCountC = 0
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 = $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 = $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 = $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
Next
EndIf
Return $s_EncryptText
EndIf
EndFunc ;==>_StringEncrypt
;===============================================================================
;
; Function Name: _StringInsert(), version 1.02
; Description: Inserts a string within another
; Parameters: $s_String - Original string
; $s_InsertString - String to insert
; $i_Position - Position to insert string (negatives values
; count from right hand side)
; Requirement(s): None
; Author(s): Louis Horvath <celeri@videotron.ca>
;
; Return value: upon success, returns a string containing the desired insert string.
; upon error, sets @error to the following values:
; @error = 1 : Source string empty / not a string
; @error = 2 : Insert string empty / not a string
; @error = 3 : Invalid position
;
; and returns original string unmodified.
;===============================================================================
Func _StringInsert($s_String, $s_InsertString, $i_Position)
Local $i_Length, $s_Start, $s_End
If $s_String = "" Or (Not IsString($s_String)) Then
SetError(1) ; Source string empty / not a string
Return $s_String
ElseIf $s_InsertString = "" Or (Not IsString($s_String)) Then
SetError(2) ; Insert string empty / not a string
Return $s_String
Else
$i_Length = StringLen($s_String) ; Take a note of the length of the source string
If (Abs($i_Position) > $i_Length) Or (Not IsInt($i_Position)) Then
SetError(3) ; Invalid position
Return $s_String
EndIf
EndIf
; If $i_Position at start of string
If $i_Position = 0 Then
Return $s_InsertString & $s_String ; Just add them up :) Easy :)
; If $i_Position is positive
ElseIf $i_Position > 0 Then
$s_Start = StringLeft($s_String, $i_Position) ; Chop off first part
$s_End = StringRight($s_String, $i_Length - $i_Position) ; and the second part
Return $s_Start & $s_InsertString & $s_End ; Assemble all three pieces together
; If $i_Position is negative
ElseIf $i_Position < 0 Then
$s_Start = StringLeft($s_String, Abs($i_Length + $i_Position)) ; Chop off first part
$s_End = StringRight($s_String, Abs($i_Position)) ; and the second part
Return $s_Start & $s_InsertString & $s_End ; Assemble all three pieces together
EndIf
EndFunc ;==>_StringInsert
;===============================================================================
;
; Description: Changes a string to proper case, same a =Proper function in Excel
; Syntax: _StringProper( $sString)
; Parameter(s): $sString - String to change to proper case.
; Requirement(s): None
; Return Value(s): On Success - Returns the proper string.
; On Failure - Returns an empty string and sets @error = 1
; Author(s): Jos van der Zande <jdeb@autoitscript.com>
; Note(s): None
;
;===============================================================================
Func _StringProper($s_Str)
Local $iX = 0
Local $CapNext = 1
Local $s_nStr = ""
Local $s_CurChar
For $iX = 1 To StringLen($s_Str)
$s_CurChar = StringMid($s_Str, $iX, 1)
Select
Case $CapNext = 1
If __CharacterIsApha($s_CurChar) Then
$s_CurChar = StringUpper($s_CurChar)
$CapNext = 0
EndIf
Case Not __CharacterIsApha($s_CurChar)
$CapNext = 1
Case Else
$s_CurChar = StringLower($s_CurChar)
EndSelect
$s_nStr = $s_nStr & $s_CurChar
Next
Return ($s_nStr)
EndFunc ;==>_StringProper
;===============================================================================
;
; Description: Repeats a string a specified number of times.
; Syntax: _StringRepeat( $sString, $iRepeatCount )
; Parameter(s): $sString - String to repeat
; $iRepeatCount - Number of times to repeat the string
; Requirement(s): None
; Return Value(s): On Success - Returns string with specified number of repeats
; On Failure - Returns an empty string and sets @error = 1
; Author(s): Jeremy Landes <jlandes@landeserve.com>
; Note(s): None
;
;===============================================================================
Func _StringRepeat($sString, $iRepeatCount)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $sResult
Local $iCount
Select
Case Not StringIsInt($iRepeatCount)
SetError(1)
Return ""
Case StringLen($sString) < 1
SetError(1)
Return ""
Case $iRepeatCount <= 0
SetError(1)
Return ""
Case Else
For $iCount = 1 To $iRepeatCount
$sResult = $sResult & $sString
Next
Return $sResult
EndSelect
EndFunc ;==>_StringRepeat
;===============================================================================
;
; Description: Reverses the contents of the specified string.
; Syntax: _StringReverse( $sString )
; Parameter(s): $sString - String to reverse
; Requirement(s): None
; Return Value(s): On Success - Returns reversed string
; On Failure - Returns an empty string and sets @error = 1
; Author(s): Jonathan Bennett <jon at hiddensoft com>
; Note(s): None
;
;===============================================================================
Func _StringReverse($sString)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $sReverse
Local $iCount
If StringLen($sString) >= 1 Then
For $iCount = 1 To StringLen($sString)
$sReverse = StringMid($sString, $iCount, 1) & $sReverse
Next
Return $sReverse
Else
SetError(1)
Return ""
EndIf
EndFunc ;==>_StringReverse
;===============================================================================
;
; Function Name: _StringToHex("string")
; Description: Convert a string of characters to hexadecimal.
; Parameter(s): $strChar is the string you want to convert.
; Requirement(s): String Input.
; Return Value(s): Returns the converted string in hexadecimal.
; Author(s): Jarvis Stubblefield
; Corrected: 2005/09/04 jpm error checking
;
;===============================================================================
Func _StringToHex($strChar)
Local $aryChar, $i, $iDec, $hChar, $file, $strHex
$aryChar = StringSplit($strChar, "")
For $i = 1 To $aryChar[0]
$iDec = Asc($aryChar[$i])
$hChar = Hex($iDec, 2)
$strHex = $strHex & $hChar
Next
Return $strHex
EndFunc ;==>_StringToHex
;=================================================================================
; Helper functions
Func __CharacterIsApha($s_Str)
Local $a_Alpha = "abcdefghijklmnopqrstuvwxyz"
Return (StringInStr($a_Alpha, $s_Str))
EndFunc ;==>__CharacterIsApha
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Programme\AutoIt3\Include\string.au3>
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Programme\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------
; ------------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1 (beta)
; Language: English
; Description: Constants to be used in GUI applications.
;
; ------------------------------------------------------------------------------
; Events and messages
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_EVENT_MINIMIZE = -4
Global Const $GUI_EVENT_RESTORE = -5
Global Const $GUI_EVENT_MAXIMIZE = -6
Global Const $GUI_EVENT_PRIMARYDOWN = -7
Global Const $GUI_EVENT_PRIMARYUP = -8
Global Const $GUI_EVENT_SECONDARYDOWN = -9
Global Const $GUI_EVENT_SECONDARYUP = -10
Global Const $GUI_EVENT_MOUSEMOVE = -11
Global Const $GUI_EVENT_RESIZED = -12
; State
Global Const $GUI_AVISTOP = 0
Global Const $GUI_AVISTART = 1
Global Const $GUI_AVICLOSE = 2
Global Const $GUI_CHECKED = 1
Global Const $GUI_INDETERMINATE = 2
Global Const $GUI_UNCHECKED = 4
Global Const $GUI_ACCEPTFILES = 8
Global Const $GUI_SHOW = 16
Global Const $GUI_HIDE = 32
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $GUI_FOCUS = 256
Global Const $GUI_DEFBUTTON = 512
Global Const $GUI_EXPAND = 1024
; Font
Global Const $GUI_FONTITALIC = 2
Global Const $GUI_FONTUNDER = 4
Global Const $GUI_FONTSTRIKE = 8
; Resizing
Global Const $GUI_DOCKAUTO = 0x0001
Global Const $GUI_DOCKLEFT = 0x0002
Global Const $GUI_DOCKRIGHT = 0x0004
Global Const $GUI_DOCKHCENTER = 0x0008
Global Const $GUI_DOCKTOP = 0x0020
Global Const $GUI_DOCKBOTTOM = 0x0040
Global Const $GUI_DOCKVCENTER = 0x0080
Global Const $GUI_DOCKWIDTH = 0x0100
Global Const $GUI_DOCKHEIGHT = 0x0200
Global Const $GUI_DOCKSIZE = 0x0300 ; width+height
Global Const $GUI_DOCKMENUBAR = 0x0220 ; top+height
Global Const $GUI_DOCKSTATEBAR = 0x0240 ; bottom+height
Global Const $GUI_DOCKALL = 0x0322 ; left+top+width+height
Global Const $GUI_DOCKBORDERS = 0x0066 ; left+top+right+bottom
; Window Styles
Global Const $WS_TILED = 0
Global Const $WS_OVERLAPPED = 0
Global Const $WS_MAXIMIZEBOX = 0x00010000
Global Const $WS_MINIMIZEBOX = 0x00020000
Global Const $WS_TABSTOP = 0x00010000
Global Const $WS_GROUP = 0x00020000
Global Const $WS_SIZEBOX = 0x00040000
Global Const $WS_THICKFRAME = 0x00040000
Global Const $WS_SYSMENU = 0x00080000
Global Const $WS_HSCROLL = 0x00100000
Global Const $WS_VSCROLL = 0x00200000
Global Const $WS_DLGFRAME = 0x00400000
Global Const $WS_BORDER = 0x00800000
Global Const $WS_CAPTION = 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW = 0x00CF0000
Global Const $WS_TILEDWINDOW = 0x00CF0000
Global Const $WS_MAXIMIZE = 0x01000000
Global Const $WS_CLIPCHILDREN = 0x02000000
Global Const $WS_CLIPSIBLINGS = 0x04000000
Global Const $WS_DISABLED = 0x08000000
Global Const $WS_VISIBLE = 0x10000000
Global Const $WS_MINIMIZE = 0x20000000
Global Const $WS_CHILD = 0x40000000
Global Const $WS_POPUP = 0x80000000
Global Const $WS_POPUPWINDOW = 0x80880000
Global Const $DS_MODALFRAME = 0x80
Global Const $DS_SETFOREGROUND = 0x00000200
Global Const $DS_CONTEXTHELP = 0x00002000
; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES = 0x00000010
Global Const $WS_EX_MDICHILD = 0x00000040
Global Const $WS_EX_APPWINDOW = 0x00040000
Global Const $WS_EX_CLIENTEDGE = 0x00000200
Global Const $WS_EX_CONTEXTHELP = 0x00000400
Global Const $WS_EX_DLGMODALFRAME = 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR = 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW = 0x00000300
Global Const $WS_EX_RIGHT = 0x00001000
Global Const $WS_EX_STATICEDGE = 0x00020000
Global Const $WS_EX_TOOLWINDOW = 0x00000080
Global Const $WS_EX_TOPMOST = 0x00000008
Global Const $WS_EX_TRANSPARENT = 0x00000020
Global Const $WS_EX_WINDOWEDGE = 0x00000100
Global Const $WS_EX_LAYERED = 0x00080000
Global Const $GUI_WS_EX_PARENTDRAG = 0x00100000
; listView Extended Styles
Global Const $LVS_EX_FULLROWSELECT = 0x00000020
Global Const $LVS_EX_GRIDLINES = 0x00000001
Global Const $LVS_EX_SUBITEMIMAGES = 0x00000002
Global Const $LVS_EX_CHECKBOXES = 0x00000004
Global Const $LVS_EX_TRACKSELECT = 0x00000008
Global Const $LVS_EX_HEADERDRAGDROP = 0x00000010
Global Const $LVS_EX_FLATSB = 0x00000100
Global Const $LVS_EX_BORDERSELECT = 0x00008000
;Global Const $LVS_EX_MULTIWORKAREAS = 0x00002000
;Global Const $LVS_EX_SNAPTOGRID = 0x00080000
;Global Const $LVS_EX_DOUBLEBUFFER = 0x00010000
; Tab Extended Styles
Global Const $TCS_EX_FLATSEPARATORS = 0x1
;Global Const $TCS_EX_REGISTERDROP = 0x2
; Label/Pic/Icon
Global Const $SS_LEFT = 0
Global Const $SS_CENTER = 1
Global Const $SS_RIGHT = 2
Global Const $SS_ICON = 3
Global Const $SS_BLACKRECT = 4
Global Const $SS_GRAYRECT = 5
Global Const $SS_WHITERECT = 6
Global Const $SS_BLACKFRAME = 7
Global Const $SS_GRAYFRAME = 8
Global Const $SS_WHITEFRAME = 9
Global Const $SS_SIMPLE = 11
Global Const $SS_LEFTNOWORDWRAP = 12
Global Const $SS_BITMAP = 15
Global Const $SS_ETCHEDHORZ = 16
Global Const $SS_ETCHEDVERT = 17
Global Const $SS_ETCHEDFRAME = 18
Global Const $SS_NOPREFIX = 0x0080
Global Const $SS_NOTIFY = 0x0100
Global Const $SS_CENTERIMAGE = 0x0200
Global Const $SS_RIGHTJUST = 0x0400
Global Const $SS_SUNKEN = 0x1000
; Group
Global Const $BS_GROUPBOX = 0x0007
; Button
Global Const $BS_BOTTOM = 0x0800
Global Const $BS_CENTER = 0x0300
Global Const $BS_DEFPUSHBUTTON = 0x0001
Global Const $BS_LEFT = 0x0100
Global Const $BS_MULTILINE = 0x2000
Global Const $BS_PUSHBOX = 0x000A
Global Const $BS_PUSHLIKE = 0x1000
Global Const $BS_RIGHT = 0x0200
Global Const $BS_RIGHTBUTTON = 0x0020
Global Const $BS_TOP = 0x0400
Global Const $BS_VCENTER = 0x0C00
Global Const $BS_FLAT = 0x8000
Global Const $BS_ICON = 0x0040
Global Const $BS_BITMAP = 0x0080
; Checkbox
Global Const $BS_3STATE = 0x0005
Global Const $BS_AUTO3STATE = 0x0006
Global Const $BS_AUTOCHECKBOX = 0x0003
Global Const $BS_CHECKBOX = 0x0002
; Radio
Global Const $BS_AUTORADIOBUTTON = 0x0009
; Combo
Global Const $CBS_SIMPLE = 0x0001
Global Const $CBS_DROPDOWN = 0x0002
Global Const $CBS_DROPDOWNLIST = 0x0003
Global Const $CBS_AUTOHSCROLL = 0x0040
Global Const $CBS_OEMCONVERT = 0x0080
Global Const $CBS_SORT = 0x0100
Global Const $CBS_NOINTEGRALHEIGHT = 0x0400
Global Const $CBS_DISABLENOSCROLL = 0x0800
Global Const $CBS_UPPERCASE = 0x2000
Global Const $CBS_LOWERCASE = 0x4000
; Listbox
Global Const $LBS_NOTIFY = 0x0001
Global Const $LBS_SORT = 0x0002
Global Const $LBS_USETABSTOPS = 0x0080
Global Const $LBS_NOINTEGRALHEIGHT = 0x0100
Global Const $LBS_DISABLENOSCROLL = 0x1000
Global Const $LBS_NOSEL = 0x4000
Global Const $LBS_STANDARD = 0xA00003
; Edit/Input
Global Const $ES_LEFT = 0
Global Const $ES_CENTER = 1
Global Const $ES_RIGHT = 2
Global Const $ES_MULTILINE = 4
Global Const $ES_UPPERCASE = 8
Global Const $ES_LOWERCASE = 16
Global Const $ES_PASSWORD = 32
Global Const $ES_AUTOVSCROLL = 64
Global Const $ES_AUTOHSCROLL = 128
Global Const $ES_NOHIDESEL = 256
Global Const $ES_OEMCONVERT = 1024
Global Const $ES_READONLY = 2048
Global Const $ES_WANTRETURN = 4096
Global Const $ES_NUMBER = 8192
;Global Const $ES_DISABLENOSCROLL = 8192
;Global Const $ES_SUNKEN = 16384
;Global Const $ES_VERTICAL = 4194304
;Global Const $ES_SELECTIONBAR = 16777216
; Date
Global Const $DTS_SHORTDATEFORMAT = 0
Global Const $DTS_UPDOWN = 1
Global Const $DTS_SHOWNONE = 2
Global Const $DTS_LONGDATEFORMAT = 4
Global Const $DTS_TIMEFORMAT = 9
Global Const $DTS_RIGHTALIGN = 32
; MonthCal
Global Const $MCS_NOTODAY = 16
Global Const $MCS_NOTODAYCIRCLE = 8
Global Const $MCS_WEEKNUMBERS = 4
; Progress bar
Global Const $PBS_SMOOTH = 1
Global Const $PBS_VERTICAL = 4
; AVI clip
Global Const $ACS_CENTER = 1
Global Const $ACS_TRANSPARENT = 2
Global Const $ACS_AUTOPLAY = 4
Global Const $ACS_TIMER = 8
Global Const $ACS_NONTRANSPARENT = 16
; Tab
Global Const $TCS_SCROLLOPPOSITE = 0x0001
Global Const $TCS_BOTTOM = 0x0002
Global Const $TCS_RIGHT = 0x0002
Global Const $TCS_MULTISELECT = 0x0004
Global Const $TCS_FLATBUTTONS = 0x0008
Global Const $TCS_FORCEICONLEFT = 0x0010
Global Const $TCS_FORCELABELLEFT = 0x0020
Global Const $TCS_HOTTRACK = 0x0040
Global Const $TCS_VERTICAL = 0x0080
Global Const $TCS_TABS = 0x0000
Global Const $TCS_BUTTONS = 0x0100
Global Const $TCS_SINGLELINE = 0x0000
Global Const $TCS_MULTILINE = 0x0200
Global Const $TCS_RIGHTJUSTIFY = 0x0000
Global Const $TCS_FIXEDWIDTH = 0x0400
Global Const $TCS_RAGGEDRIGHT = 0x0800
Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000
Global Const $TCS_OWNERDRAWFIXED = 0x2000
Global Const $TCS_TOOLTIPS = 0x4000
Global Const $TCS_FOCUSNEVER = 0x8000
; TreeView
Global Const $TVS_HASBUTTONS = 0x0001
Global Const $TVS_HASLINES = 0x0002
Global Const $TVS_LINESATROOT = 0x0004
;Global Const $TVS_EDITLABELS = 0x0008
Global Const $TVS_DISABLEDRAGDROP = 0x0010
Global Const $TVS_SHOWSELALWAYS = 0x0020
;Global Const $TVS_RTLREADING = 0x0040
Global Const $TVS_NOTOOLTIPS = 0x0080
Global Const $TVS_CHECKBOXES = 0x0100
Global Const $TVS_TRACKSELECT = 0x0200
Global Const $TVS_SINGLEEXPAND = 0x0400
;Global Const $TVS_INFOTIP = 0x0800
Global Const $TVS_FULLROWSELECT = 0x1000
Global Const $TVS_NOSCROLL = 0x2000
Global Const $TVS_NONEVENHEIGHT = 0x4000
; Slider
Global Const $TBS_AUTOTICKS = 0x0001
Global Const $TBS_VERT = 0x0002
Global Const $TBS_HORZ = 0x0000
Global Const $TBS_TOP = 0x0004
Global Const $TBS_BOTTOM = 0x0000
Global Const $TBS_LEFT = 0x0004
Global Const $TBS_RIGHT = 0x0000
Global Const $TBS_BOTH = 0x0008
Global Const $TBS_NOTICKS = 0x0010
Global Const $TBS_NOTHUMB = 0x0080
; ListView
Global Const $LVS_ICON = 0x0000
Global Const $LVS_REPORT = 0x0001
Global Const $LVS_SMALLICON = 0x0002
Global Const $LVS_LIST = 0x0003
Global Const $LVS_EDITLABELS = 0x0200
Global Const $LVS_NOCOLUMNHEADER = 0x4000
Global Const $LVS_NOSORTHEADER = 0x8000
Global Const $LVS_SINGLESEL = 0x0004
Global Const $LVS_SHOWSELALWAYS = 0x0008
Global Const $LVS_SORTASCENDING = 0X0010
Global Const $LVS_SORTDESCENDING = 0x0020
; Updown
Global Const $UDS_WRAP = 0x0001
Global Const $UDS_ALIGNRIGHT = 0x0004
Global Const $UDS_ALIGNLEFT = 0x0008
Global Const $UDS_ARROWKEYS = 0x0020
Global Const $UDS_HORZ = 0x0040
Global Const $UDS_NOTHOUSANDS = 0x0080
; Graphic
Global Const $GUI_GR_CLOSE = 1
Global Const $GUI_GR_LINE = 2
Global Const $GUI_GR_BEZIER = 4
Global Const $GUI_GR_MOVE = 6
Global Const $GUI_GR_COLOR = 8
Global Const $GUI_GR_RECT = 10
Global Const $GUI_GR_ELLIPSE = 12
Global Const $GUI_GR_PIE = 14
Global Const $GUI_GR_DOT = 16
Global Const $GUI_GR_PIXEL = 18
Global Const $GUI_GR_HINT = 20
Global Const $GUI_GR_REFRESH = 22
Global Const $GUI_GR_PENSIZE = 24
Global Const $GUI_GR_NOBKCOLOR = -2
; Control default styles
Global Const $GUI_SS_DEFAULT_AVI = $ACS_TRANSPARENT
Global Const $GUI_SS_DEFAULT_BUTTON = 0
Global Const $GUI_SS_DEFAULT_CHECKBOX = 0
Global Const $GUI_SS_DEFAULT_COMBO = BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_VSCROLL)
Global Const $GUI_SS_DEFAULT_DATE = $DTS_LONGDATEFORMAT
Global Const $GUI_SS_DEFAULT_EDIT = BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)
Global Const $GUI_SS_DEFAULT_GRAPHIC = 0
Global Const $GUI_SS_DEFAULT_GROUP = 0
Global Const $GUI_SS_DEFAULT_ICON = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_INPUT = BitOR($ES_LEFT, $ES_AUTOHSCROLL)
Global Const $GUI_SS_DEFAULT_LABEL = 0
Global Const $GUI_SS_DEFAULT_LIST = BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY)
Global Const $GUI_SS_DEFAULT_LISTVIEW = BitOR($LVS_SHOWSELALWAYS, $LVS_SINGLESEL)
Global Const $GUI_SS_DEFAULT_MONTHCAL = 0
Global Const $GUI_SS_DEFAULT_PIC = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_PROGRESS = 0
Global Const $GUI_SS_DEFAULT_RADIO = 0
Global Const $GUI_SS_DEFAULT_SLIDER = $TBS_AUTOTICKS
Global Const $GUI_SS_DEFAULT_TAB = 0
Global Const $GUI_SS_DEFAULT_TREEVIEW = BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS)
Global Const $GUI_SS_DEFAULT_UPDOWN = $UDS_ALIGNRIGHT
Global Const $GUI_SS_DEFAULT_GUI = BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Programme\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------
$Form1 = GUICreate("Crackme Generation 5 Nummer 1", 622, 319, 192, 125)
$InputUsername = GUICtrlCreateInput("Schreib den Namen mal hier rein!", 104, 160, 473, 24, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUICtrlSetBkColor(-1, 0xACA899)
GUICtrlSetCursor ($InputUsername, 0)
$Pic1 = GUICtrlCreatePic("habo.gif", 120, 16, 361, 89, $WS_CLIPSIBLINGS)
$InputPassword = GUICtrlCreateInput("Hier kommt dein Passwort hinein!", 104, 216, 473, 24, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUICtrlSetBkColor(-1, 0xACA899)
GUICtrlSetCursor ($InputPassword, 0)
GUICtrlCreateLabel("Passwort", 16, 216, 61, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlCreateLabel("Benutzer", 16, 160, 58, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlCreateLabel("by sd333221 for Habo (The hacker board) [URL]www.hackerboard.de[/URL]", 272, 288, 308, 17)
GUICtrlCreateLabel("Nicht verzweifeln, wenn ihr es nicht schafft!", 32, 136, 329, 17)
GUICtrlCreateLabel("Greetings an CDW, der alle meine Crackmes knackt, als wären sie Chips.", 264, 112, 346, 17)
$Check = GUICtrlCreateButton("Check", 176, 248, 273, 25)
GUICtrlSetCursor ($Check, 3)
GUISetState(@SW_SHOW)
global $calculation
global $compare
While 1
Call ("Security")
$Username = GUICtrlRead($InputUsername)
$Password = GUICtrlRead($InputPassword)
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Check
Call ("ChooseEncryption")
Call ("GoAway")
EndSelect
WEnd
Func CalculatePassword1($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "1234567")
endfunc
Func CalculatePassword2($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "1239999")
endfunc
Func CalculatePassword3($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "2634567")
endfunc
Func CalculatePassword4($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "3734567")
endfunc
Func CalculatePassword5($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "8834567")
endfunc
Func CalculatePassword6($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "7734567")
endfunc
Func CalculatePassword7($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "6634567")
endfunc
Func CalculatePassword8($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "5534567")
endfunc
Func CalculatePassword9($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "4434567")
endfunc
Func CalculatePassword10($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "3334567")
endfunc
Func CalculatePassword11($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "2234567")
endfunc
Func CalculatePassword12($Username)
$calculation = _StringToHex($Username)
$calculation = ($calculation *3 - 1532443) *23
$calculation = _StringEncrypt ( "1", $calculation, "1134567")
endfunc
Func GoAway()
If $calculation = $Password Then
Msgbox(0, "Bravo", "Richtiges Passwort")
Else
Msgbox(262160, "Error", "Falsches Passwort")
Endif
endfunc
Func Security()
If WinExists("OllyDbg") Then
WinClose("OllyDbg", "")
MsgBox(262160, "Warnung!", "OllyDbg wurde von sd333221 entdeckt! Der Prozess wurde Abgeschossen!")
Endif
If ProcessExists("Ollydbg.exe") Then
ProcessClose ( "Ollydbg.exe" )
MsgBox(262160, "Warnung!", "OllyDbg wurde von sd333221 entdeckt! Der Prozess wurde Abgeschossen!")
EndIf
EndFunc
Func ChooseEncryption()
$s_letter = StringMid(StringUpper($Username),1,1)
Select
Case $s_letter = 'A' Or $s_letter = 'B' Or $s_letter = 'C' Or $s_letter = 'D'
Call ("CalculatePassword1")
Case $s_letter = 'E' Or $s_letter = 'F' Or $s_letter = 'G'
Call ("CalculatePassword2")
Case $s_letter = 'H' Or $s_letter = 'I' Or $s_letter = 'J'
Call ("CalculatePassword3")
Case $s_letter = 'K' Or $s_letter = 'L' Or $s_letter = 'M'
Call ("CalculatePassword4")
Case $s_letter = 'N' Or $s_letter = 'O' Or $s_letter = 'P'
Call ("CalculatePassword5")
Case $s_letter = 'Q' Or $s_letter = 'R' Or $s_letter = 'S'
Call ("CalculatePassword6")
Case $s_letter = 'T' Or $s_letter = 'U' Or $s_letter = 'V'
Call ("CalculatePassword7")
Case $s_letter = 'W' Or $s_letter = 'X' Or $s_letter = 'Y'
Call ("CalculatePassword8")
Case $s_letter = 'Z' Or $s_letter = '1' Or $s_letter = '2'
Call ("CalculatePassword9")
Case $s_letter = '3' Or $s_letter = '4' Or $s_letter = '5'
Call ("CalculatePassword10")
Case $s_letter = '6' Or $s_letter = '7' Or $s_letter = '8'
Call ("CalculatePassword11")
Case $s_letter = '9' Or $s_letter = '0' Or $s_letter = ' ' Or $s_letter = '.'
Call ("CalculatePassword12")
Case Else
MsgBox(262160, "Warnung!", "Invalider Username!")
Exit
EndSelect
Endfunc
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Dokumente und Einstellungen\Siad\Desktop\my-crackme\generation 5 crackme\Rambacrackme.au3>
; ----------------------------------------------------------------------------
![[HaBo]](/styles/default/logoklein.png){kind=small}
.
So wars jedenfalls gedacht^^