das grüngerüst wie man eine inputbox mit passwort syriptet weiss ich aber wie kann man man seine dateien miteinbeziehen in den script?
Quote:
$1 = InputBox("Passwort","Geben sie ihr Passwort ein")
If $1 = "Hier dein Passswort" Then
;Hier dein Script
Else
MsgBox(16,"Error","PW ist falsch"
;#################################################################
; $string = string to be encrypted/decrypted
; $sub = password for encryption/decryption
; $enc = 1 encryption / 2 decryption
; example : $pw1 = _PWcreate("hello","wtf",1)
; MsgBox(0,"",$pw1)
; $pw2 = _PWcreate($pw1,"wtf",2)
; MsgBox(0,"",$pw2)
;
;#################################################################
#include-once
#include <String.au3>
Func _PWcreate($string,$sub,$enc)
If $enc = 1 Then
$s1 = _StringReverse($string)
$s2 = StringToBinary($s1)
$s3 = _StringReverse($s2)
$s4 = _StringEncrypt(1,$s3,$sub)
$s5 = _StringReverse($s4)
Return $s5
ElseIf $enc = 2 Then
$s1 = _StringReverse($string)
$s2 = _StringEncrypt(0,$s1,$sub)
$s3 = _StringReverse($s2)
$s4 = BinaryToString($s3)
$s5 = _StringReverse($s4)
Return $s5
EndIf
EndFunc
Decompilen ?! :DQuote:
Recht simpel, erfüllt aber seinen Zweck.Code:;################################################################# ; $string = string to be encrypted/decrypted ; $sub = password for encryption/decryption ; $enc = 1 encryption / 2 decryption ; example : $pw1 = _PWcreate("hello","wtf",1) ; MsgBox(0,"",$pw1) ; $pw2 = _PWcreate($pw1,"wtf",2) ; MsgBox(0,"",$pw2) ; ;################################################################# #include-once #include <String.au3> Func _PWcreate($string,$sub,$enc) If $enc = 1 Then $s1 = _StringReverse($string) $s2 = StringToBinary($s1) $s3 = _StringReverse($s2) $s4 = _StringEncrypt(1,$s3,$sub) $s5 = _StringReverse($s4) Return $s5 ElseIf $enc = 2 Then $s1 = _StringReverse($string) $s2 = _StringEncrypt(0,$s1,$sub) $s3 = _StringReverse($s2) $s4 = BinaryToString($s3) $s5 = _StringReverse($s4) Return $s5 EndIf EndFunc