Hallo Scripter
Hier mal meine Erste UDF, Für alle Gedacht, Die sich mit StringEncrypt nicht Zufriedengeben
Code :
Spoiler anzeigen
;===============================================================================
;
; Function Name: _ChiffString()
; Description:: Chiff. a Given String
;
; Parameter(s): $sText = The String to Crypt
; $sKey = The Encryption-Key
;
; Requirement(s): #Include <String.au3>
;
; Return Value(s): The Crypted String
; On Error @Error is set to "1"
;
; Author(s): DjDominik
;
;===============================================================================
Func _ChiffString($iMode = 1, $bPopup = True, $sText = "", $sKey = "")
Switch $iMode
Case 1
If $bPopup Then ProgressOn("ChiffString Function", "Encrypting Data")
Local $sHexText = _StringToHex($sText)
If $bPopup Then ProgressSet(25)
Local $sBinText = StringToBinary($sHexText)
If $bPopup Then ProgressSet(50)
Local $sCryptText = _StringEncrypt(1, $sBinText, $sKey, 2)
If $bPopup Then ProgressSet(75)
Local $sReverse = _StringReverse($sCryptText)
If $bPopup Then ProgressSet(100)
If $bPopup Then ProgressOff()
Return $sReverse
Case 2
If $bPopup Then ProgressOn("ChiffString Function", "Decrypting Data")
Local $sUndoReverse = _StringReverse($sText)
If $bPopup Then ProgressSet(25)
Local $sUndoCryptText = _StringEncrypt(0, $sUndoReverse, $sKey, 2)
If $bPopup Then ProgressSet(50)
Local $sUndoBinText = BinaryToString($sUndoCryptText)
If $bPopup Then ProgressSet(75)
Local $sUndoHexText = _HexToString($sUndoBinText)
If $bPopup Then ProgressSet(100)
If $bPopup Then ProgressOff()
Return $sUndoHexText
Case Else
SetError(1)
Return
EndSwitch
EndFunc ;==>_ChiffString
Mit dabei ist ein Bild ohne Verschlüsselung und eins mit Daten die Gecryptet Sind.