.swf bot ?

dready · 04/03/2013, 10:53

@FacepalmMan
öhm viel Spass mit dieser herrausragenden idee *cough*
Mit Bruteforce wirst du an so ziemlich jeder Verschlüsselung scheitern

Ganz davon abgesehn, evtl findet man tatsächlich ein Bug über Packets, wäre nich das erstemal das dort geschlampt wurde aber unter garantie nicht soetwas wie du da annimmst

Requi · 04/03/2013, 11:54

Hier ist die main.swf des Games.
Viel Spaß

Havelock_Vetinari · 04/03/2013, 15:14

Quote:

Originally Posted by Requι

Hier ist die main.swf des Games.
Viel Spaß

Die Datei ist beschädigt .. wird zumindest bei mir angezeigt .

Sag mir wie ich die Pakete entschlüssele und ich bastel dir um handumdrehen einen Bot ... Das entschlüsseln ist das einzige schwierige daran und es hat Nichts mit dem Bot schreiben an sich zu tun . Wieso hängstr du denn so stark an der Behauptung das es nciht möglich ist einen Algorithmus in Autoit zu schreiben? erklär mir das mal^^

FacePalmMan · 04/03/2013, 15:27

da bin ich wieder. habe ein entschlüsselungsgerät (entschlüsselungscombifinder) gemacht. es ist zwar etwas langsam und schafft nur entschlüsselungspasswörter bis 255 aber wenn ihr es schafft könnt ihr was tolles draus machen.

Code:

For $i=0 To 255
For $i2=0 To 255
$SE=_StringEncrypt()
If $SE="Text der rauskommen soll" And Not $i2=0 Then MsgBox(0,"","Ergebnis: "&$i&" "&$i2)
Next
Next
MsgBox(0,"","FERTIG")

Func _StringEncrypt($i_Encrypt=0,$s_EncryptText="Text den ihr Decrypten wollt", $s_EncryptPassword=$i2, $i_EncryptLevel = $i)
	If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
		SetError(1, 0, '')
	ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
		SetError(1, 0, '')
	Else
		If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then $i_EncryptLevel = 1
		Local $v_EncryptModified
		Local $i_EncryptCountH
		Local $i_EncryptCountG
		Local $v_EncryptSwap
		Local $av_EncryptBox[256][2]
		Local $i_EncryptCountA
		Local $i_EncryptCountB
		Local $i_EncryptCountC
		Local $i_EncryptCountD
		Local $i_EncryptCountE
		Local $v_EncryptCipher
		Local $v_EncryptCipherBy
		If $i_Encrypt = 1 Then
			For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
				$i_EncryptCountG = ''
				$i_EncryptCountH = ''
				$v_EncryptModified = ''
				For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
					If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
						$i_EncryptCountH = 1
					Else
						$i_EncryptCountH += 1
					EndIf
					$v_EncryptModified = $v_EncryptModified & Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
				Next
				$s_EncryptText = $v_EncryptModified
				$i_EncryptCountA = ''
				$i_EncryptCountB = 0
				$i_EncryptCountC = ''
				$i_EncryptCountD = ''
				$i_EncryptCountE = ''
				$v_EncryptCipherBy = ''
				$v_EncryptCipher = ''
				$v_EncryptSwap = ''
				$av_EncryptBox = ''
				Local $av_EncryptBox[256][2]
				For $i_EncryptCountA = 0 To 255
					$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
					$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
				Next
				For $i_EncryptCountA = 0 To 255
					$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
					$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
					$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
					$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
				Next
				For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
					$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
					$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
					$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]
					$v_EncryptCipherBy = BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
					$v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)
				Next
				$s_EncryptText = $v_EncryptCipher
			Next
		Else
			For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
				$i_EncryptCountB = 0
				$i_EncryptCountC = ''
				$i_EncryptCountD = ''
				$i_EncryptCountE = ''
				$v_EncryptCipherBy = ''
				$v_EncryptCipher = ''
				$v_EncryptSwap = ''
				$av_EncryptBox = ''
				Local $av_EncryptBox[256][2]
				For $i_EncryptCountA = 0 To 255
					$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
					$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
				Next
				For $i_EncryptCountA = 0 To 255
					$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
					$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
					$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
					$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
				Next
				For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2
					$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
					$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
					$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]
					$v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)
					$v_EncryptCipher = $v_EncryptCipher & Chr($v_EncryptCipherBy)
				Next
				$s_EncryptText = $v_EncryptCipher
				$i_EncryptCountG = ''
				$i_EncryptCountH = ''
				$v_EncryptModified = ''
				For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
					If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
						$i_EncryptCountH = 1
					Else
						$i_EncryptCountH += 1
					EndIf
					$v_EncryptModified &= Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
				Next
				$s_EncryptText = $v_EncryptModified
			Next
		EndIf
		Return $s_EncryptText
	EndIf
EndFunc   ;==>_StringEncrypt

YatoDev · 04/03/2013, 15:47

Quote:

Originally Posted by Requι

Dann sag ich 50€
Ich will so einen Bot sehen in AutoIt

wenn jemand es schafft in autoit einen darkorbit packet bot zu schreiben dann komm ich persönlich vorbei und gebe ihm 10000 €

Requi hat einfach recht akzeptiert das ^^

FacePalmMan · 04/03/2013, 17:17

du kannst dein 10000€-angebot immernoch zurückziehen! wir brauchen nur die verschlüsselung. das mit der verschlüsselung wird mir nicht so schwer fallen. habe meine 7 gamerpc's zusammengeschlossen (feiere gerne LAN partys) und die überprüfung von 255 auf 16777215 gestellt! ich fange ebend packet ab und lasse das 7 gamerpc große monster das ganze entschlüsseln! in ein paar stunden ist es fertig.

YatoDev · 04/03/2013, 17:20

ok 10 k isn bisschen viel aber mein paypal konto bekommst du wenn du das schaffst , er muss auch funktionieren und gegenüber anderen bots keine großen nachteile haben ^^

FacePalmMan · 04/03/2013, 18:08

Das Projekt wurde abgebrochen.

YatoDev · 04/03/2013, 18:12

Quote:

Originally Posted by FacePalmMan

Das Projekt wurde abgebrochen.

hahahaha das war mir so klar das du failst ^^

Ricky hatte also doch recht

Requi · 04/03/2013, 18:19

Ich sag ja. Die Verschlüsselung mit AutoIt. Geht nicht. Wenn dann nicht einfach

FacePalmMan · 04/03/2013, 18:21

das ist es nicht! ich darf es euch nicht sagen!

Requi · 04/03/2013, 18:25

Hat Mama dir deine 7 GamerPC's weggenommen?

YatoDev · 04/03/2013, 18:28

Quote:

Originally Posted by FacePalmMan

das ist es nicht! ich darf es euch nicht sagen!

ich darf es euch nicht sagen ? hehe ^^
. . . . .. . . . . . ..,/. . . . . . . . . . . . . . . . . . . . . . . ”:,
. . . . . . . .. .,?. . . . . . . . . . . . . . . . . . . . . . . . . . .\,
. . . . . . . . . /. . . . . . . . . . . . . . . . . . . . . . . . . . . . ,}
. . . . . . . . ./. . . . . . . . . . . . . . . . . . . . . . . . . . ,:`^`.}
. . . . . . . ./. . . . . . . . . . . . . . . . . . . . . . . . . ,:”. . . ./
. . . . . . .?. . . __. . . . . . . . . . . . . . . . . . . . :`. . . ./
. . . . . . . /__.(. . .“~-,_. . . . . . . . . . . . . . ,:`. . . .. ./
. . . . . . /(_. . ”~,_. . . ..“~,_. . . . . . . . . .,:`. . . . _/
. . . .. .{.._$;_. . .”=,_. . . .“-,_. . . ,.-~-,}, .~”; /. .. .}
. . .. . .((. . .*~_. . . .”=-._. . .“;,,./`. . /” . . . ./. .. ../
. . . .. . .\`~,. . ..“~.,. . . . . . . . . ..`. . .}. . . . . . ../
. . . . . .(. ..`=-,,. . . .`. . . . . . . . . . . ..(. . . ;_,,-”
. . . . . ../.`~,. . ..`-.. . . . . . . . . . . . . . ..\. . /\
. . . . . . \`~.*-,. . . . . . . . . . . . . . . . . ..|,./.....\,__
,,_. . . . . }.>-._\. . . . . . . . . . . . . . . . . .|. . . . . . ..`=~-,
. .. `=~-,_\_. . . `\,. . . . . . . . . . . . . . . . .\
. . . . . . . . . .`=~-,,.\,. . . . . . . . . . . . . . . .\
. . . . . . . . . . . . . . . . `:,, . . . . . . . . . . . . . `\. . . . . . ..__
. . . . . . . . . . . . . . . . . . .`=-,. . . . . . . . . .,%`>--==``
. . . . . . . . . . . . . . . . . . . . _\. . . . . ._,-%. . . ..

░█▀▀ ░█▀█ ░█ ░█▀▀ ░░█▀▀ ░█▀█ ░█ ░█
░█▀▀ ░█▀▀ ░█ ░█ ░░░░█▀▀ ░█▀█ ░█ ░█
░▀▀▀ ░▀ ░░░▀ ░▀▀▀ ░░▀ ░░░▀░▀ ░▀ ░▀▀▀

lolkop · 04/03/2013, 18:42

Quote:

Originally Posted by Requι

Ich sag ja. Die Verschlüsselung mit AutoIt. Geht nicht. Wenn dann nicht einfach

requi du verstehst immernoch nicht, das verschlüsselungen einfach nur die aneinanderreihung umkehrbarer operationen sind...
sobald die verschlüsselungsmethode bekannt ist, kann diese ohne probleme in jeder beliebigen sprache nachgestellt werden.

das einzige problem ist wie immer das reverse engineering, welches notwendig ist, um den verschlüsselungsalgo' zu finden. sobald dieser bekannt ist, ist das ganze nurnoch simple schreib-arbeit, welche unabhängig von der sprache, selbst von anfängern problemlos bewältigt werden kann.

Requi · 04/03/2013, 18:52

Okay. Wenn du meinst.