Welcher PassGen ist besser

NBA · 05/02/2009, 18:45

Wir wussten nicht wohin damit, wollten aber das ihr abstimmt.. Wäre nett wenn ein Admin das moven könnte

Nun...hab mit eF_hacks heute einen kleinen Wettbewerb gemacht.
Und frage euch nun:
Welcher ist Besser?
Der Cryptor (meiner) oder Crystalix (eF_Hacks)?
Siehe Anhang.

Der Gewinner bekommt ein leeres Array geschenkt.

MfG
NBA

blauwiggle · 05/02/2009, 18:58

Den Gen von eF_Hacks hab ich nicht getestet, der AU3 jedoch basiert auf der RC4 Verschlüsselung, wie sie z. B. bei SSL eingesetzt wird .. . Persönlich find ich AES vom Namen/Stärke her schöner, wobei RC4 bei sehr vielen Dingen angewendet wird, u. a. bei MPPE, welches z. B. beim Verschlüsseln von VPN Sessions verwendet wird - Stichwort PPTP. Jedoch bei PPTP in Verbindung mit RSA steht. RSA ist z. B. ne Ami Firma, jedoch stammt von denen auch die Technik. Die RSA, ist jedoch auf Dauer etwas lahmer als der Rest von der Performance her.

buFFy! · 05/02/2009, 18:59

Was sagt uns das?

~~kknb~~ · 05/02/2009, 19:02

also habse jetzt nicht getestet weil kein source dabei ist, aber ich kann ja mal sagen was in nem ordentlichen pw gen gehört:

auswahl zwischen groß und klein schreibung
auswahl ob sonderzeichen oder nicht
auswahl ob zahlen oder nicht
länge muss natürlich ausgewählt werden können

buFFy! · 05/02/2009, 19:05

LoL kknb, ist bei mir alles drin

Ich pack jetzt einfach mal den Source dazu

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Hacking\Hacking\everything_you_need_to_keylog\iconos\Playboy1.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.3.0.0
	Author:         myName
	
	Script Function:
	Template AutoIt script.
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <Array.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include-once

DirCreate(@ScriptDir & "/data")
FileInstall("gui.jpg", @ScriptDir & "/data/gui.jpg")
FileInstall("Sound.mp3", @ScriptDir & "/data/Sound.mp3")

SoundPlay(@ScriptDir & "/data/Sound.mp3", 0)

#Region ### START Koda GUI section ### Form=
$Crystalix = GUICreate("Crystalix Generator v1.0 [eF] 09", 277, 293, -1, -1)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/data/gui.jpg", 0, 0, 276, 292, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Mode_C = GUICtrlCreateCombo("Both", 64, 8, 145, 25)
GUICtrlSetData(-1, "Both|Only Letters|Only Numbers")
$Generate = GUICtrlCreateButton("Generate", 80, 192, 115, 25, 0)
$Convert = GUICtrlCreateButton("Encrypt", 80, 240, 115, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 48, 72, 185, 89)
GUICtrlSetData(-1, "<No Password Generated>")
$dimension_C = GUICtrlCreateCombo("Characters to Generate", 64, 40, 145, 25)
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Generate
			Splitt()
		Case $Convert
			$SEncrypted = _StringEncrypt(1, GUICtrlRead($Edit1), "123")
			GUICtrlSetData($Edit1, $SEncrypted)
	EndSwitch
WEnd

Func MessageBox($Flag = 0, $Title = "", $Text = "")
	Local $dCall = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", $Text, "str", $Title, "int", $Flag)
	Return ($dCall[0])
EndFunc   ;==>MessageBox

Func Convert($avArray, $sDelim = "|", $iStart = 0, $iEnd = 0)
	If Not IsArray($avArray) Then Return SetError(1, 0, "")
	If UBound($avArray, 0) <> 1 Then Return SetError(3, 0, "")

	Local $sResult, $iUBound = UBound($avArray) - 1

	; Bounds checking
	If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
	If $iStart < 0 Then $iStart = 0
	If $iStart > $iEnd Then Return SetError(2, 0, "")

	; Combine
	For $i = $iStart To $iEnd
		$sResult &= $avArray[$i] & $sDelim
	Next

	Return StringTrimRight($sResult, StringLen($sDelim))
EndFunc   ;==>Convert

Func Splitt()
	$dimension = GUICtrlRead($dimension_C)

	;create aray
	Dim $pw[1]
	$pw[0] = ""

	Select
		Case GUICtrlRead($Mode_C) = "Both"
			$chaiNboth = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|1|2|3|4|5|6|7|8|9|0'
			$maRkboth = StringSplit($chaiNboth, "|", 1)
			For $i = 1 To $dimension
				$rnd_aR = Random(1, 36, 1)
				$rnd_uL = Random(1, 2, 1)
				If $rnd_uL = 1 And IsString($maRkboth[$rnd_uL]) = True Then
					_ArrayAdd($pw, StringUpper($maRkboth[$rnd_aR]))
				Else
					_ArrayAdd($pw, ($maRkboth[$rnd_aR]))
				EndIf
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
		Case GUICtrlRead($Mode_C) = "Only Letters"
			$chaiNstring = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z'
			$maRkstring = StringSplit($chaiNstring, "|", 1)
			For $i = 1 To $dimension
				$rnd_aR = Random(1, 26, 1)
				$rnd_uL = Random(1, 2, 1)
				If $rnd_uL = 1 And IsString($maRkstring[$rnd_uL]) = True Then
					_ArrayAdd($pw, StringUpper($maRkstring[$rnd_aR]))
				Else
					_ArrayAdd($pw, ($maRkstring[$rnd_aR]))
				EndIf
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
		Case GUICtrlRead($Mode_C) = "Only Numbers"
			$chaiNnuM = '1|2|3|4|5|6|7|8|9|0'
			$maRknuM = StringSplit($chaiNnuM, "|", 1)
			For $i = 1 To $dimension
				$rnd_aR = Random(1, 10, 1)
				_ArrayAdd($pw, $maRknuM[$rnd_aR])
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
		Case GUICtrlRead($Mode_C) = Not "Both" Or "Only Numbers" Or "Only Letters"
			MessageBox(0x10, "Error", "Please Choose an valid Mode to Generate")
		EndSelect

EndFunc   ;==>Splitt

Neon™ · 05/02/2009, 19:07

NBA: + sehr kompliziertes PW

eF Hacks: + schönes GUI
+ viel einstellbar

- nervtötende Musik

Also mir persöhnlich gefällt der von eF Hacks besser.
Man muss den Ton allerdings davor abdrehen

Adroxxx · 05/02/2009, 19:08

Beide scheiße.

Wobei der Crystalix noch besser ist als der Cryptor den man direkt in die Tonne hauen kann.

Kritikpunkte die ein Passwort Generator für mich erfüllen müsste:

Auswahlmöglichkeiten für Passwortlänge
Auswahl: Uppercase, Lowercase Buchstaben
Auswahl: Zahlen
Auswahl: Sonderzeichen

Dem Crystalix fehlt aber noch die Möglichkeit für Sonderzeichen wie ".,-_" Außerdem nervt die Musik und wenn man ganz oft auf encrypt drückt scheißt das programm ab. also nciht das es abstürzt sondern man kann dann keine neuen pws mehr generieren.

Der Cryptor ist imo totaler ****.
Man hat überhaupt gar keine Einstellmöglichkeiten und die Passwörter können auch nicht verwendet werden weil dort verbotene Sonderzeichen sind.

Like:" R*b²{ì¤è@¬CI "
Wie soll man das Passwort bitte per Hand eingeben? Entweder muss man die Ascii codes für ¤ ¬ usw. auswendig kennen oder das passwort irgendwo als txt abspeichern.

Außerdem werden diese Zeichen zu 99% nicht unterstützt.

buFFy! · 05/02/2009, 19:08

Naja kommt immer so drauf was man hört näh ;D
Hab schon überlegt ob ich nochma update und Mute einbau

~~kknb~~ · 05/02/2009, 19:12

jo habse jetzt beide mal getestet.

naja nba lasst sein pw nur verschlüsseln, was ja nichts mit nem generator zu tun hat, btw hätte man auch nur das beispiel was in der hilfe ist kopieren müssen, dann wäre nahezu das gleiche bei rausgekommen

NBA · 05/02/2009, 19:18

Werd meinen auch etwas überarbeiten...jedoch dauert es etwas länger da ich das magazin heute fertig kriegen will...

buFFy! · 05/02/2009, 20:04

Update:

Spoiler

Code:

Spoiler

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Hacking\Hacking\everything_you_need_to_keylog\iconos\DirectX.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.3.0.0
	Author:         Felix Lehmann
	
	Script Function:
	Template AutoIt script.
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <Array.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include-once

DirCreate(@ScriptDir & "/data")
FileInstall("gui.jpg", @ScriptDir & "/data/gui.jpg")
FileInstall("Sound.wav", @ScriptDir & "/data/Sound.wav")

#Region ### START Koda GUI section ### Form=
$Crystalix = GUICreate("Crystalix Generator v1.0 [eF] 09", 277, 294, -1, -1)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/data/gui.jpg", 0, 0, 276, 292, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Mode_C = GUICtrlCreateCombo("Both", 64, 8, 145, 25)
GUICtrlSetData(-1, "Both|Only Letters|Only Numbers")
$Generate = GUICtrlCreateButton("Generate", 80, 192, 115, 25, 0)
$Convert = GUICtrlCreateButton("Encrypt", 80, 240, 115, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 48, 88, 185, 89)
GUICtrlSetData(-1, "")
$dimension_C = GUICtrlCreateCombo("Characters to Generate", 64, 32, 145, 25)
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20")
$SpecialKeys_C = GUICtrlCreateCheckbox("SpecialKeys?", 88, 64, 89, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Generate
			Splitt()
		Case $Convert
			$SEncrypted = _StringEncrypt(1, GUICtrlRead($Edit1), "123")
			GUICtrlSetData($Edit1, $SEncrypted)
	EndSwitch
WEnd

Func MessageBox($Flag = 0, $Title = "", $Text = "")
	Local $dCall = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", $Text, "str", $Title, "int", $Flag)
	Return ($dCall[0])
EndFunc   ;==>MessageBox

Func Convert($avArray, $sDelim = "|", $iStart = 0, $iEnd = 0)
	If Not IsArray($avArray) Then Return SetError(1, 0, "")
	If UBound($avArray, 0) <> 1 Then Return SetError(3, 0, "")

	Local $sResult, $iUBound = UBound($avArray) - 1

	; Bounds checking
	If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
	If $iStart < 0 Then $iStart = 0
	If $iStart > $iEnd Then Return SetError(2, 0, "")

	; Combine
	For $i = $iStart To $iEnd
		$sResult &= $avArray[$i] & $sDelim
	Next

	Return StringTrimRight($sResult, StringLen($sDelim))
EndFunc   ;==>Convert

Func Splitt()
	$dimension = GUICtrlRead($dimension_C)

	;create aray
	Dim $pw[1]
	$pw[0] = ""

	Select
		Case GUICtrlRead($Mode_C) = "Both"
			$chaiNbothaNdSK = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|1|2|3|4|5|6|7|8|9|0|-|^|.|,|"|;|+|/|\|<|>|!|&|$|'
			$chaiNboth = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|1|2|3|4|5|6|7|8|9|0'
			If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
				$maRkboth = StringSplit($chaiNbothaNdSK, "|", 1)
			Else
				$maRkboth = StringSplit($chaiNboth, "|", 1)
			EndIf
			For $i = 1 To $dimension
				If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
					$rnd_aR = Random(1, 51, 1)
				Else
					$rnd_aR = Random(1, 36, 1)
				EndIf
				$rnd_uL = Random(1, 2, 1)
				If $rnd_uL = 1 And IsString($maRkboth[$rnd_uL]) = True Then
					_ArrayAdd($pw, StringUpper($maRkboth[$rnd_aR]))
				Else
					_ArrayAdd($pw, ($maRkboth[$rnd_aR]))
				EndIf
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
			SoundPlay(@ScriptDir & "/data/Sound.wav", 0)
		Case GUICtrlRead($Mode_C) = "Only Letters"
			$chaiNstringaNdSK = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|-|^|.|,|"|;|+|/|\|<|>|!|&|$|'
			$chaiNstring = 'a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z'
			If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
				$maRkstring = StringSplit($chaiNstringaNdSK, "|", 1)
			Else
				$maRkstring = StringSplit($chaiNstring, "|", 1)
			EndIf
			For $i = 1 To $dimension
				If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
					$rnd_aR = Random(1, 40, 1)
				Else
					$rnd_aR = Random(1, 26, 1)
				EndIf
				$rnd_uL = Random(1, 2, 1)
				If $rnd_uL = 1 And IsString($maRkstring[$rnd_uL]) = True Then
					_ArrayAdd($pw, StringUpper($maRkstring[$rnd_aR]))
				Else
					_ArrayAdd($pw, ($maRkstring[$rnd_aR]))
				EndIf
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
			SoundPlay(@ScriptDir & "/data/Sound.wav", 0)
		Case GUICtrlRead($Mode_C) = "Only Numbers"
			$chaiNnuMaNdSK = '1|2|3|4|5|6|7|8|9|0|-|^|.|,|"|;|+|/|\|<|>|!|&|$|'
			$chaiNnuM = '1|2|3|4|5|6|7|8|9|0'
			If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
				$maRknuM = StringSplit($chaiNnuMaNdSK, "|", 1)
			Else
				$maRknuM = StringSplit($chaiNnuM, "|", 1)
			EndIf
			For $i = 1 To $dimension
				If GUICtrlRead($SpecialKeys_C) = $GUI_CHECKED Then
					$rnd_aR = Random(1, 25, 1)
				Else
					$rnd_aR = Random(1, 10, 1)
				EndIf
				_ArrayAdd($pw, $maRknuM[$rnd_aR])
			Next
			GUICtrlSetData($Edit1, Convert($pw, ""))
			SoundPlay(@ScriptDir & "/data/Sound.wav", 0)
		Case GUICtrlRead($Mode_C) = Not "Both" Or "Only Numbers" Or "Only Letters"
			MessageBox(0x10, "Error", "Please Choose an valid Mode to Generate")
	EndSelect

EndFunc   ;==>Splitt

NANAAA · 05/02/2009, 20:19

also wenn ich ehrlich bin gefällt mir der von NBA besser :x

positiv an deinem finde ich die einstellbare Anzahl und den Namen *gg*

buFFy! · 05/02/2009, 20:26

Ähm, ne Begründung wäre schön

N.E.O. · 05/02/2009, 20:32

Ich würde einen machen bei dem ne Struktur drinnen wär...

Kann vor- und nachteile haben.
Aber ich finds besser.

#So Far~

NANAAA · 05/02/2009, 20:42

also persönlich finde ich dein "Tool" hat zuviel "schnickschnack"

man denke

ich brauche pw ----> ich starte NBA's "tool" drücke 1 Knopf ---> generiert

bei dir kann ich natürlich alles ausführlicher Einstellen , aber für was brauch ich das alles?

Interessant wäre soetwas ...was

-Einstellbare Ziffern hat
-"pw" kopieren Button
-"Pw" verschlüsseln + abspeichern
-verschlüsselte pw laden + Master pw eingeben

geht zwar fast schon in richtung "PW Speicherer" *gg*