[Dl]Generator Haseł

[Koniuh]

Cześć dzisiaj chce wam przedstawić napisanego przeze mnie spamera.

Myślę że w autoit cały czas robię postępy więc to wszystko pisze w celach naukowych ale myślę

że program może się komuś przydać

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("GeHasło", 180, 122, 482, 383)
$Button1 = GUICtrlCreateButton("Generuj", 0, 0, 177, 25, $WS_GROUP, $WS_EX_CLIENTEDGE)
$Input1 = GUICtrlCreateInput("", 0, 24, 177, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Group1 = GUICtrlCreateGroup("", 0, 40, 177, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox(" Duże litery", 0, 88, 73, 17, -1, $WS_EX_STATICEDGE)
$Checkbox2 = GUICtrlCreateCheckbox(" Małe Litery", 104, 88, 73, 17, -1, $WS_EX_STATICEDGE)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Długosć Hasła", 56, 48, 77, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Cyfry", 0, 104, 73, 17, -1, $WS_EX_STATICEDGE)
$Button2 = GUICtrlCreateButton("Info", 104, 104, 75, 17, $WS_GROUP)
$Input2 = GUICtrlCreateInput("Wpisz długosć hasła(litery)", 0, 64, 177, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		generujj(GUICtrlRead($Input2))
	Case $Button2
		MsgBox(0, "Info", "Program zrobiony przez" & @CRLF & "MixSie" & @CRLF & "Program specjalnie dla MPCFORUM")
EndSwitch
WEnd

Func generujj($dll)
GUICtrlSetData($Input1, '')
If GUICtrlRead($Checkbox1) = 1 Then
	If GUICtrlRead($Checkbox3) = 1 Then
		For $x = 1 To $dll Step +1
			$random = Random(1, 3, 1)
			If $random = 1 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("a"), Asc("z"), 1)))
			ElseIf $random = 2 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("A"), Asc("Z"), 1)))
			ElseIf $random = 3 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Random(0, 9, 1))
			EndIf
		Next
	EndIf
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
	If GUICtrlRead($Checkbox3) = 4 Then
		For $x = 1 To $dll Step +1
			$random = Random(1, 2, 1)
			If $random = 1 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("a"), Asc("z"), 1)))
			ElseIf $random = 2 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("A"), Asc("Z"), 1)))
			EndIf
		Next
	EndIf
EndIf
If GUICtrlRead($Checkbox1) = 4 Then
	If GUICtrlRead($Checkbox3) = 1 Then
		For $x = 1 To $dll Step +1
			$random = Random(1, 2, 1)
			If $random = 1 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("a"), Asc("z"), 1)))
			ElseIf $random = 2 Then
				GUICtrlSetData($Input1, GUICtrlRead($Input1) & Random(0, 9, 1))
			EndIf
		Next
	EndIf
EndIf
If GUICtrlRead($Checkbox1) = 4 Then
	If GUICtrlRead($Checkbox3) = 4 Then
		For $x = 1 To $dll Step +1
			GUICtrlSetData($Input1, GUICtrlRead($Input1) & Chr(Random(Asc("a"), Asc("z"), 1)))
		Next
	EndIf
EndIf
EndFunc   ;==>generujj

[vipcior]

z czego się uczysz ?

[lokuxd]

podstawy pewnie tutki,

a programy sam pisze bo to nie problem jak wiesz co i jak chcesz zrobic...

albo inaczej jak znasz podstawy to samo leci dalej:)

[FullMetalJacket]

Pewnie w szkole się uczył xDDDDDDDDD <Joke>

[adwi32]

@top

co jakiś czas podczas kodzenia wciskaj ctrl+t , pomaga

[lokuxd]

ale tylko po zakonczeniu petli bo blad wywali:D

[Koniuh]

adwi32 właśnie lubiłem jak tak było ale coś mi się wyłączyło jak pisałem i nie wiedziałem jak to włączyć.

Teraz wystarczy ctrl i t i kod równy.

Dzięki

 

@top

 

Poprawiłem pierwszy post

[C.J]

'Cześć dzisiaj chce wam przedstawić napisanego przeze mnie spamera.'

 

'[Dl]Generator Haseł tym razem nie jakiś spamer czy coś'

 

Tutaj masz błąd ;p Przedstawiasz nam spamera, który jest generatorem.

[Koniuh]

Ojć ;d

Nie poprawie tego epickiego faila ;d

@topic

Teraz pisze generatora seed'ów do minecraft'a który będzie wybierał losowo słowa z danej strony

[Heniut]

Wiesz... Może byś powiedział kto ci powiedział jak to zrobić...

(to byłem ja ..)

[Koniuh]

Podałeś mi tylko random(0,9,1)

[Heniut]

Tylko, że ty nawet nie wiedziałeś, że istnieje taka funkcja...

[Koniuh]

No to pisze przecież że podałeś mi tylko jedną linijkę kodu random(0,9,1)

[Heniut]

Tak, ale przez to ci w pewnym sensie pomogłem w całym "generowaniu", ponieważ nawet nie wiedziałeś jaka funkcja generuje :angry:

[No ja]

Dajcie sobie po razie, a potem podziękuj jeden drugiemu i będzie spokój

Programik fajny. Można by jeszcze dodać funkcję wklepującą znaki specjalne dla większego bezpieczeństwa hasła

[Sebastiano14]

Mam też generator haseł ;p Macie tutaj ;d W rar bo jest grafika ;d

Trochę wiecej funkcji

 

Generator haseł:

http://www.megaupload.com/?d=0K4MYIR3

Skan:

http://www.virustotal.com/file-scan/report.html?id=6edc0f6bc032366c1855abaf880028176a521431f4e0c5ca6bdba66c46ef406e-1306580398