.swf bot ?

Page 2 of 4

04/03/2013 10:53 dready#16

@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 ;)

04/03/2013 11:54 Requi#17

[Only registered and activated users can see links. Click Here To Register...]

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

04/03/2013 15:14 Havelock_Vetinari#18

Quote:

Originally Posted by Requι

[Only registered and activated users can see links. Click Here To Register...]

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^^

04/03/2013 15:27 FacePalmMan#19

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

04/03/2013 15:47 YatoDev#20

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 ^^

04/03/2013 17:17 FacePalmMan#21

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.

04/03/2013 17:20 YatoDev#22

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 ^^

04/03/2013 18:08 FacePalmMan#23

Das Projekt wurde abgebrochen.

04/03/2013 18:12 YatoDev#24

Quote:

Originally Posted by FacePalmMan

Das Projekt wurde abgebrochen.

hahahaha das war mir so klar das du failst ^^

Ricky hatte also doch recht

04/03/2013 18:19 Requi#25

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

04/03/2013 18:21 FacePalmMan#26

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

04/03/2013 18:25 Requi#27

Hat Mama dir deine 7 GamerPC's weggenommen? :D [Only registered and activated users can see links. Click Here To Register...]

04/03/2013 18:28 YatoDev#28

Quote:

Originally Posted by FacePalmMan

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

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

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

04/03/2013 18:42 lolkop#29

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.

04/03/2013 18:52 Requi#30

Okay. Wenn du meinst.

Page 2 of 4