So etwas in der art hab ich gesucht. Sorry für die schlechte erklärung...
Danke 
Beiträge von Kawooshe
-
-
Ich hätte gerne eine art hash funktion( ja, ich weiß das es das schon gibt), die jedoch anstatt irgendwie berechneten strings, einen String nur mit dem inhalt des zu Hashenden (gibts das wort
?) Strings.
Wenn ihr das nicht verstaden habt fragt nach, ich kann es ja korrigieren.
Der Code auf den ich jetzt kam, war folgender:Code
Alles anzeigenFunc _S_Mix ($sString,$iStrength=2) Dim $sReturn = "" For $iLen = 1 To StringLen($sString) $sMid = StringMid($sString, $iLen, 1) $iMod = Mod($iStrength, StringLen($sReturn)) If $iMod = $iLen Then $sReturn = StringReverse(_StringHalfHalf ($sMid & $sReturn)) Else If $iLen = $iStrength Then $sReturn = StringUpper(_StringHalfHalf ($sReturn & StringLower($sMid))) Else $sReturn = StringReverse(StringLower($sMid) & $sReturn) EndIf EndIf Next Return $sReturn EndFunc $sMix = _S_Mix(StringLower("ABCDEFGHIJKLMNOPQRSTUVWXYZ"), 2) MsgBox(0,"",$sMix) Func _StringHalfHalf ($sString) If StringInStr(StringLen($sString)/2, ".5") Then $iStringLen1 = StringLen($sString)/2 + 0.5 $iStringLen2 = StringLen($sString)/2 - 0.5 Return StringTrimLeft($sString, $iStringLen1) & StringTrimRight($sString, $iStringLen2) Else Return StringTrimLeft($sString, StringLen($sString)/2) & StringTrimRight($sString, StringLen($sString)/2) EndIf EndFuncPS: Ich will nicht irgendwie Random etwas generieren, das ist mir zu einfach, und kann ich auch
...
LG Kawooshe -
@Lanius Ich würde dieses script jedoch bevorzugen:
C
Alles anzeigen#include <Misc.au3> #include <MsgBoxConstants.au3> Global $iPressTime = 1000 ;Zeitspanne bis zum Senden der Nachricht in Millisekunden (1s = 1000 ms) Local $hDLL = DllOpen("user32.dll") While sleep(10) ;Senden mit T+STRG If _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL) Then Local $iCount = 0 $timerStart=TimerInit() Do ; Auf weitere Tastendrücke warten If _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL) Then ;Warten bis Taste losgelassen wird While _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL) Sleep(10) WEnd ;Zähler für Anzahl der Tastendrücke erhöhen, sobald Taste losgelassen wird $iCount = $iCount + 1 EndIf ; Bis eine Sekunde vergangen ist Until TimerDiff($timerStart) > $iPressTime ;senden _sendChatNr($iCount) ;Schließen mit ESC+ALT ElseIf _IsPressed("1B", $hDLL) and _IsPressed("12", $hDLL) Then ExitLoop EndIf WEnd DllClose($hDLL) exit Func _sendChatNr($number) Switch $number Case 1 _sendChat("Message1") Case 2 _sendChat("Message2") Case 3 _sendChat("Message3") Case Else _sendChat("Message4") EndSwitch EndFunc Func _sendChat($message) ;Actives Fenster ermitteln $handle=WinGetHandle("[active]") ;Senden ControlSend($handle,"",0,"{t}") ControlSend($handle,"",1,$message) ControlSend($handle,"",0,"{ENTER}") EndFuncDas einzige was ich geändert habe ist, das du in deine nachrichten auch ausrufezeichen einbauen kannst, was bei der anderen version nicht geklappt hätte.
-
@4ern
Du hast da trotzdem noch einen Logikfehler, es müsste:Code$Start = 0 $End = 10 For $iRgendeinevariable = $Start To $End Func () NextDas würde als beispiel zehn mal die Funktion Func () aufrufen...
-
Moin, Ich habe letztens mit "IniWrite ('Bla', 'BLABLA', $bla)", schreiben lassen, aber leider habe ich offensichtlich das ".ini" vergessen, und nun sind diese dateien unlöschbar und es kommt die Fehlermeldung "Datei kann nicht gelöscht werden: Die Quelldatei oder vom Quelldatenträger kann nicht gelesen werden.", falls das jemand kennt, und selber nicht wusste wie es geht, hier die lösung: Unlocker, eine ganz einfache software die alles löschen kann, ich hoffe es hat euch weitergeholfen,
LG Kawooshe. -
Da es für dich ja noch interressant sein kann, hier ein kleines update mit einer Chatbot_update.rar.
-
Vielleicht liegt es daran das du die Gleichzeichen setzt ohne was in die Variable zu schicken.
Ich habe einige bestimmte passwörter zur verschlüsslung, hab deswegen die sachen herausgelöscht, so doof bin ich nicht
Deine gui hat kein endfunc.. Und was soll das Script genau bewirken ??? Aktuell wie es da steht macht es garnichts ...
Ja, bin echt doof
nächstes mal überlege ich einmal mehr.
Sorry.
Das script hat ein GUI, mit inputfeldern für alle passwörter, den zu verschlüsselnden text usw.
außerdem enthält er eigens geschriebene verschlüsslungs-arten. -
Hallo, bin neu hier, falls ich etwas falsch mache einfach drauf hinweisen
Ich habe einen verschlüssler geschrieben, er müsst eigentlich funktionieren, doch die funktion zeigt immer einen error an, da es anscheinend kein "EndFunc" gibt, obwhol dies ja nicht der fall ist. Was ist das problem?
AutoIt
Alles anzeigenFunc GUI () While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $cryptst a1 ($tocrypt) Case $copytoclip ClipPut(BinaryToString ($tocrypt)) Case $encrypt a2 ($tocrypt) Case $Exit Exit EndSwitch WEnd Func a1 ($tocrypt) $sUserkey = $sUserkey2 = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = EndFunc Func a2 ($tocrypt) $sUserkey = $sUserkey2 = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = $tocrypt = EndFuncbei der zweiten funktion funktioniert es ohne error, aber bei $a1 leider nicht.
LG Kawooshe
