String mixen

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

Func _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
EndFunc

Alles anzeigen

PS: Ich will nicht irgendwie Random etwas generieren, das ist mir zu einfach, und kann ich auch ...
LG Kawooshe

**Mars**

Ich weiß wirklich nicht genau was du willst.

Hab jetzt eine Funktion gebastelt die die Zeichen in einem Text zufällig anordnet. Die Funktion geht in beide Richtungen.

AutoIt

Local $sText = 'Hallo, ich bin ein Text. Hier könnte alles mügliche stehen...'
Local $sMixed = Mix($sText)
Local $sUnMixed = Mix($sMixed, True)


ConsoleWrite('Original:      ' & $sText & @CRLF & 'Gemischt:      ' & $sMixed & @CRLF & 'Entwurschtelt: ' & $sUnMixed & @CRLF)


Func Mix($sString, $bUnmix = False)
	Local $aString = StringToASCIIArray($sString), $iUbound = UBound($aString), $aRnd[$iUbound], $iTmp
	For $i = 0 To $iUbound - 1 Step 1
		$iTmp += $aString[$i]
	Next
	SRandom($iTmp)
	For $i = 0 To $iUbound - 1 Step 1
		$aRnd[$i] = Random(0, $iUbound - 1, 1)
	Next
	For $i = ($bUnmix ? ($iUbound - 1) : 0) To ($bUnmix ? 0 : ($iUbound - 1)) Step ($bUnmix ? -1 : 1)
		$iTmp = $aString[$i]
		$aString[$i] = $aString[$aRnd[$i]]
		$aString[$aRnd[$i]] = $iTmp
	Next
	Return StringFromASCIIArray($aString)
EndFunc

Alles anzeigen

Edit: Was "Random" angeht. Ich verstehe nicht was damit gemeint ist. Random ist nur Pseudozufällig, sodass man mit SRandom jedes Ergebnis rekonstruieren kann. Mein Beispiel benutzt zwar Random, ist aber dennoch vollständig deterministisch.

lg
M

Kawooshe

So etwas in der art hab ich gesucht. Sorry für die schlechte erklärung...
Danke