was zum Knebeln

**GtaSpider**

Hallo! Hier hab ich mal was zum knebeln!: ich habe ein Verschlüsselungcode geschrieben denn man so leicht nicht knacken kann und weiß jetzt nicht wie man den Rückgangig machen kann -_- Also wer lust hat(man hat ja sonst nichts zu tun)... Ist nicht dringend also lasst euch zeit(falls ihr sie habt(wenn nicht macht es einfach nicht))

C

#include <process.au3>
#include <string.au3>


ProgressOn("Passwort","Create a Pass")
$date = "01052006"
$dongel = "5636"
$version = "7.46"
;~ MsgBox(0, "Serial von C:", DriveGetSerial("C:"))
;~ MsgBox(0, "Revision  Nummer", _GetRevison ())
;~ MsgBox(0, "Serial von C: Mal Revision  Nummer", DriveGetSerial("C:") * _GetRevison ())
;~ MsgBox(0, "Ergebnis durch version", DriveGetSerial("C:") * _GetRevison () / $version)


$a = _StringEncrypt(1, DriveGetSerial("C:") * _GetRevison () / $version, "5960")
ClipPut($a)
ProgressSet(10)
;~ MsgBox(0, "RC4 Verschlüsselung(Passwort:test) von Serial von C: Mal Revision  Nummer", $a)
$a = _StringReverse($a)
ClipPut($a)
ProgressSet(15)
;~ MsgBox(0, "String Rückwärts von Ergebnis", $a)
$a = $a + $dongel * $dongel
$a = StringReplace($a, ".", "z")
$a = _StringEncrypt(0, $a, $date)
ProgressSet(30)
;~ MsgBox(0, "", $a)




$a = _StringToHex ($a)
$a = _StringToHex ($a)
;~ MsgBox(0, "Und dann noch das Ergebnis 2mal in HEX umgewandelt", $a)
ProgressSet(35)
$error = 0
$for = 0
$c = ""
;~ SplashTextOn("gar3","")
While 1
	$for = $for + 1
	$b = StringMid($a, $for,1)
	If Not StringIsDigit($b) Then 
		__CharacterIsApha($b)
		$for = $for - 1
		ContinueLoop
	EndIf
	If $b = 0 Then
		$b = 5
	ElseIf $b = 1 Then
		$b = 6
	ElseIf $b = 2 Then
		$b = 8
	ElseIf $b = 3 Then
		$b = 9
	ElseIf $b = 4 Then
		$b = 0
	ElseIf $b = 5 Then
		$b = 1
	ElseIf $b = 6 Then
		$b = 7
	ElseIf $b = 7 Then
		$b = 4
	ElseIf $b = 8 Then
		$b = 2
	ElseIf $b = 9 Then
		$b = 3
	Else
		$error = 1
	EndIf
	If $for = StringLen($a) Then ExitLoop
;~ 	MsgBox(0,$for&"-"&StringLen($a),$b)
	$c = $c & $b
;~ 	ControlSetText("gar3","","Static1",$b)
WEnd
ProgressSet(50)
SplashOff()
ClipPut($c)
;~ MsgBox(0,$c,$c)
$c = _StringEncrypt(1,$c,$date+$version,5)
ProgressSet(70)
$c = _StringEncrypt(0,$c,$dongel/$version,5)
ProgressSet(90)
$c = _StringToHex($c)
While 1
	$for = $for + 1
	$b = StringMid($a, $for,1)
	If Not StringIsDigit($b) Then 
		$b = __CharacterIsApha($b)
	EndIf
	If $for = StringLen($c) Then ExitLoop
	$a = $a & $b
WEnd
ProgressSet(100,"","Pass: "&$a)
IniWrite("ini.ini","Skript","Pass",$a)
;~ MsgBox(0, "", $a)
Sleep(5000)
ProgressOff()

Alles anzeigen