Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
[RELEASE]Passwort Generator [RELEASE]Passwort Generator
You last visited: Today at 07:26

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[RELEASE]Passwort Generator

Discussion on [RELEASE]Passwort Generator within the AutoIt forum part of the Coders Den category.

Reply
Page 3 of 3 12 3
 
Old 03/01/2010, 17:05   #31
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 518
Received Thanks: 75
JOP habs ma ausprob... bringt zwar nich wirklich was, hab sowas ma online gesehen! Also mussteste da nix runterladen naja ok eqal also kein virus.
MFg
Ninjakilla324 is offline  
Old 03/01/2010, 17:22   #32
 
elite*gold: 19
The Black Market: 1/0/0
Join Date: Aug 2007
Posts: 4,432
Received Thanks: 874
Quote:
Originally Posted by coladose View Post
Wieso sollte ich O.o ... stresst mal nicht so rum. Ist ja nicht euer Problem.
€dit: Credits Added (Just 4 MR.SM!TH)
Ich mag dich nicht
Rammsteiner is offline  
Old 03/01/2010, 17:45   #33
 
HardCore.1337's Avatar
 
elite*gold: 1
The Black Market: 1/0/0
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Quote:
so ziehmlich 100% hacksichere PWs ;D
Welchen Algorithmus benutzt du?
Würde mich mal interessieren.
HardCore.1337 is offline  
Old 03/01/2010, 18:30   #34
 
elite*gold: 60
The Black Market: 1/0/1
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
Wie in der Topic beschrieben : -> Nicht mein Script.. habs nur fertiggestellt Oo
€dit:->Wenn dus haben willst einfach PN..
FrEakY. is offline  
Old 03/05/2010, 20:09   #35
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jul 2008
Posts: 13
Received Thanks: 1
poetaoe is offline  
Old 03/11/2010, 08:31   #36
 
Maiik's Avatar
 
elite*gold: 0
The Black Market: 4/0/0
Join Date: Feb 2008
Posts: 1,070
Received Thanks: 108
Quote:
Originally Posted by -MARKS- View Post
Dis is weil autoit manchmal als Virus erkannt wird (;
nicht nur manchmal sondern immer
Maiik is offline  
Old 03/11/2010, 09:56   #37


 
buFFy!'s Avatar
 
elite*gold: 1826
The Black Market: 58/0/0
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,283
ey coladose, du hast Recht. Du bist echt Born2Fail..

vielleicht solltest du die WIRKLICH originalen Links angeben.



Und wem's Spaß macht, der kann ja gern den hier befindlichen laden + decompilen und dann mal hiermit vergleichen:
Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=PassGen.ico
#AutoIt3Wrapper_outfile=PassGen.exe
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Description=Passwort-Generator
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=Thomas Stephan (oscar at elektronik-kurs dot de)
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<GuiSlider.au3>
#include<Misc.au3>
#include<String.au3>
#include<ButtonConstants.au3>
#include<ComboConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<SliderConstants.au3>
#include<StaticConstants.au3>
Global $title = 'Passwort-Generator' ; Fenstertitel
If _Singleton($title, 1) = 0 Then ; testen, ob das Programm bereits läuft
	MsgBox(48, $title, 'Das Programm läuft bereits!') ; Benutzer informieren
	Exit ; zweite Instanz beenden
EndIf
Opt('TrayMenuMode', 1) ; Tray-Standardmenü ausschalten 
Opt('TrayAutoPause', 0) ; AutoPause ausschalten

Global $key[5] ; Array deklarieren (5 = 0...4)
$key[0] = '1234567890' ; Level 1 = nur Zahlen
$key[1] = _StringRepeat($key[0], 4) & 'abcdefghijklmnopqrstuvwxyz' ; Level 2 = Zahlen (4fach um den prozentualen Anteil zu erhöhen) und Buchstaben (nur Kleinschreibung)
$key[2] = $key[1] & 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ; Level 3 = Zahlen und Buchstaben (gemischte Groß-/Kleinschreibung)
$key[3] = $key[2] & 'öäüÖÄÜß' ; Level 4 = zusätzlich Umlaute 
$key[4] = $key[3] & '@€µ²³°!§$%&/()=<>|,.-;:_#+*~?\' & Chr(34) & Chr(39) ; Level 5 = zusätzlich alle übrigen Sonderzeichen einer deutschen Tastatur

Global $GUI = GUICreate($title, 640, 180, -1, -1) ; Fenster erstellen
GUISetBKColor(0xAAAAAA) ; Hintergrundfarbe des Fensters
GUISetIcon(@SystemDir & '\shell32.dll', -212) ; Icon in der Titelleiste setzen
Global $TrayShow  = TrayCreateItem('Passwort-Generator anzeigen') ; Tray-Menü erstellen
Global $TrayExit  = TrayCreateItem('Beenden') ; Tray-Menü erstellen

GUICtrlCreateGroup('Stärke', 10, 8, 130, 55) ; Gruppe 'Stärke' erstellen
Global $Combo = GUICtrlCreateCombo ('', 20, 30, 110, 20, $CBS_DROPDOWNLIST) ; Auswahlbox für die Passwort-Stärke
GUICtrlSetData(-1, '1 = Sehr Leicht|2 = Leicht|3 = Mittel|4 = Hoch|5 = Sehr Hoch', '3 = Mittel') ; Werte der Auswahlbox
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

GUICtrlCreateGroup('Passwortlänge', 150, 8, 480, 55) ; Gruppe 'Passwortlänge' erstellen
Global $Slider = GUICtrlCreateSlider(160, 30, 400, 20, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS)) ; Slider für Passwortlänge
GUICtrlSetLimit(-1, 36, 3) ; Slider auf Werte zwischen 3 und 36 limitieren
_GUICtrlSlider_SetTicFreq($Slider, 3) ; alle 3 Stellen ein Strich setzen
_GUICtrlSlider_SetPageSize($Slider, 3) ; bei Klick vor oder hinter dem aktuellen Wert, um 3 Stellen weiterspringen
_GUICtrlSlider_SetPos($Slider, 18) ; Slider auf den Wert 18 setzen
Global $Range = GUICtrlCreateLabel('18', 580, 30, 40, 20, $SS_CENTER) ; Die Anzeige für die Passwortlänge (Startwert=18)
GUICtrlSetFont(-1, 12, 400, 0, 'Courier New Bold') ; Schriftart und -größe der Anzeige
GUICtrlSetBKColor(-1, 0x000000) ; Hintergrundfarbe der Anzeige
GUICtrlSetColor(-1, 0xFFFF00) ; Vordergrundfarbe der Anzeige
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

Global $Button = GUICtrlCreateButton('Start', 120, 70, 90, 25, $BS_DEFPUSHBUTTON) ; Startbutton erstellen
GUICtrlSetFont(-1, 10, 400, 0, 'Arial') ; Schriftart und -größe des Buttons

GUICtrlCreateGroup('Passwort', 10, 102, 620, 65) ; Gruppe 'Passwort' erstellen
Global $Code = GUICtrlCreateInput('', 20, 120, 600, 40, $ES_READONLY) ; Ausgabefeld für das Passwort
GUICtrlSetFont(-1, 20, 400, 0, 'Courier New Bold') ; Schriftart und -größe des Ausgabefeldes
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

GUICtrlSetState($Code, $GUI_FOCUS) ; den Focus auf das Ausgabefeld, damit man das Passwort einfach per Kontextmenü ('Kopieren') in die Zwischenablage packen kann
Passwort() ; Funktion aufrufen, damit beim Programmstart bereits ein Passwort angezeigt wird
GUISetState() ; GUI-Fenster anzeigen

While 1 ; MessageLoop-Schleife
	Switch GUIGetMsg() ; Anhand des eingetretenen GUI-Ereignisses die entsprechenden Befehle ausführen 
		Case $Combo ; Benutzer hat die Passwort-Stärke geändert
			Passwort() ; Funktion Passwort() aufrufen
		Case $Slider ; Benutzer hat den Slider bewegt
			GUICtrlSetData($Range, GUICtrlRead($Slider)) ; Sliderwert auslesen und in das Anzeigefeld schreiben
			Passwort() ; Funktion Passwort() aufrufen
		Case $Button ; Benutzer hat auf den 'Start'-Button geklickt
			Passwort() ; Funktion Passwort() aufrufen
		Case $GUI_EVENT_MINIMIZE ; Benutzer hat auf Minimieren geklickt
			Opt('TrayIconHide', 0) ; Tray-Menü anzeigen
			TraySetIcon(@SystemDir & '\shell32.dll', -212) ; Icon für Tray-Menü setzen
			GUISetState(@SW_HIDE, $GUI) ; Fenster verstecken
			While 2 ; Tray-Menü-Schleife
				Switch TrayGetMsg() ; Anhand des eingetretenen Tray-Ereignisses die entsprechenden Befehle ausführen 
					Case $TrayShow ; wurde 'Anzeigen' aufgerufen, dann...
						Opt('TrayIconHide', 1) ; Tray-Menü wieder verstecken
						GUISetState(@SW_SHOW, $GUI) ; Fenster anzeigen
						GUISetState(@SW_RESTORE, $GUI) ; und wiederherstellen (minimieren rückgängig machen)
						ExitLoop ; Tray-Menü-Schleife verlassen
					Case $TrayExit ; Benutzer hat 'Beenden' ausgewählt
						Exit ; Programm beenden
				EndSwitch
			WEnd
		Case $GUI_EVENT_CLOSE ; Benutzer hat auf 'X' geklickt oder 'ESC' gedrückt
			Exit ; Programm beenden
	EndSwitch
Wend

Func Passwort()
	Local $choice = Number(StringLeft(GUICtrlRead($Combo), 1)) ; den 1. Buchstaben von links (Zahl) der Combobox (Passwort-Stärke) auslesen und als $key-Auswahl speichern
	Local $i, $pass = '' ; Passwort = Leerstring
	For $i = 1 To Number(GUICtrlRead($Range)) ; Schleife von 1 bis eingestellter Passwortlänge
		$pass &= StringMid($key[$choice-1], Random(1, StringLen($key[$choice-1]), 1), 1) ; dem Passwort ein zufälliges Zeichen aus dem ausgewählten Stärkestring hinzufügen  
	Next ; Schleife fortsetzen
	GUICtrlSetData($Code, $pass) ; das generierte Passwort in das Ausgabefeld schreiben
	GUICtrlSetState($Code, $GUI_FOCUS) ; den Focus auf das Ausgabefeld, damit man das Passwort einfach per Kontextmenü ('Kopieren') in die Zwischenablage packen kann
EndFunc
Soviel zum Thema 'vollendet'..

und ansonsten alles Gute zum 11. Geburtstag o0"

so long, coRe
buFFy! is offline  
Old 03/12/2010, 01:57   #38
 
ax5's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 1,050
Received Thanks: 472
For security reasons i will now use it but its a good idea good jobb my friend
ax5 is offline  
Old 03/12/2010, 17:49   #39
 
elite*gold: 60
The Black Market: 1/0/1
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
Quote:
Originally Posted by u-coRe View Post
ey coladose, du hast Recht. Du bist echt Born2Fail..

vielleicht solltest du die WIRKLICH originalen Links angeben.



Und wem's Spaß macht, der kann ja gern den hier befindlichen laden + decompilen und dann mal hiermit vergleichen:
Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=PassGen.ico
#AutoIt3Wrapper_outfile=PassGen.exe
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Description=Passwort-Generator
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=Thomas Stephan (oscar at elektronik-kurs dot de)
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<GuiSlider.au3>
#include<Misc.au3>
#include<String.au3>
#include<ButtonConstants.au3>
#include<ComboConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<SliderConstants.au3>
#include<StaticConstants.au3>
Global $title = 'Passwort-Generator' ; Fenstertitel
If _Singleton($title, 1) = 0 Then ; testen, ob das Programm bereits läuft
	MsgBox(48, $title, 'Das Programm läuft bereits!') ; Benutzer informieren
	Exit ; zweite Instanz beenden
EndIf
Opt('TrayMenuMode', 1) ; Tray-Standardmenü ausschalten 
Opt('TrayAutoPause', 0) ; AutoPause ausschalten

Global $key[5] ; Array deklarieren (5 = 0...4)
$key[0] = '1234567890' ; Level 1 = nur Zahlen
$key[1] = _StringRepeat($key[0], 4) & 'abcdefghijklmnopqrstuvwxyz' ; Level 2 = Zahlen (4fach um den prozentualen Anteil zu erhöhen) und Buchstaben (nur Kleinschreibung)
$key[2] = $key[1] & 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ; Level 3 = Zahlen und Buchstaben (gemischte Groß-/Kleinschreibung)
$key[3] = $key[2] & 'öäüÖÄÜß' ; Level 4 = zusätzlich Umlaute 
$key[4] = $key[3] & '@€µ²³°!§$%&/()=<>|,.-;:_#+*~?\' & Chr(34) & Chr(39) ; Level 5 = zusätzlich alle übrigen Sonderzeichen einer deutschen Tastatur

Global $GUI = GUICreate($title, 640, 180, -1, -1) ; Fenster erstellen
GUISetBKColor(0xAAAAAA) ; Hintergrundfarbe des Fensters
GUISetIcon(@SystemDir & '\shell32.dll', -212) ; Icon in der Titelleiste setzen
Global $TrayShow  = TrayCreateItem('Passwort-Generator anzeigen') ; Tray-Menü erstellen
Global $TrayExit  = TrayCreateItem('Beenden') ; Tray-Menü erstellen

GUICtrlCreateGroup('Stärke', 10, 8, 130, 55) ; Gruppe 'Stärke' erstellen
Global $Combo = GUICtrlCreateCombo ('', 20, 30, 110, 20, $CBS_DROPDOWNLIST) ; Auswahlbox für die Passwort-Stärke
GUICtrlSetData(-1, '1 = Sehr Leicht|2 = Leicht|3 = Mittel|4 = Hoch|5 = Sehr Hoch', '3 = Mittel') ; Werte der Auswahlbox
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

GUICtrlCreateGroup('Passwortlänge', 150, 8, 480, 55) ; Gruppe 'Passwortlänge' erstellen
Global $Slider = GUICtrlCreateSlider(160, 30, 400, 20, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS)) ; Slider für Passwortlänge
GUICtrlSetLimit(-1, 36, 3) ; Slider auf Werte zwischen 3 und 36 limitieren
_GUICtrlSlider_SetTicFreq($Slider, 3) ; alle 3 Stellen ein Strich setzen
_GUICtrlSlider_SetPageSize($Slider, 3) ; bei Klick vor oder hinter dem aktuellen Wert, um 3 Stellen weiterspringen
_GUICtrlSlider_SetPos($Slider, 18) ; Slider auf den Wert 18 setzen
Global $Range = GUICtrlCreateLabel('18', 580, 30, 40, 20, $SS_CENTER) ; Die Anzeige für die Passwortlänge (Startwert=18)
GUICtrlSetFont(-1, 12, 400, 0, 'Courier New Bold') ; Schriftart und -größe der Anzeige
GUICtrlSetBKColor(-1, 0x000000) ; Hintergrundfarbe der Anzeige
GUICtrlSetColor(-1, 0xFFFF00) ; Vordergrundfarbe der Anzeige
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

Global $Button = GUICtrlCreateButton('Start', 120, 70, 90, 25, $BS_DEFPUSHBUTTON) ; Startbutton erstellen
GUICtrlSetFont(-1, 10, 400, 0, 'Arial') ; Schriftart und -größe des Buttons

GUICtrlCreateGroup('Passwort', 10, 102, 620, 65) ; Gruppe 'Passwort' erstellen
Global $Code = GUICtrlCreateInput('', 20, 120, 600, 40, $ES_READONLY) ; Ausgabefeld für das Passwort
GUICtrlSetFont(-1, 20, 400, 0, 'Courier New Bold') ; Schriftart und -größe des Ausgabefeldes
GUICtrlCreateGroup ('', -99, -99, 1, 1) ; Ende der Grupppe

GUICtrlSetState($Code, $GUI_FOCUS) ; den Focus auf das Ausgabefeld, damit man das Passwort einfach per Kontextmenü ('Kopieren') in die Zwischenablage packen kann
Passwort() ; Funktion aufrufen, damit beim Programmstart bereits ein Passwort angezeigt wird
GUISetState() ; GUI-Fenster anzeigen

While 1 ; MessageLoop-Schleife
	Switch GUIGetMsg() ; Anhand des eingetretenen GUI-Ereignisses die entsprechenden Befehle ausführen 
		Case $Combo ; Benutzer hat die Passwort-Stärke geändert
			Passwort() ; Funktion Passwort() aufrufen
		Case $Slider ; Benutzer hat den Slider bewegt
			GUICtrlSetData($Range, GUICtrlRead($Slider)) ; Sliderwert auslesen und in das Anzeigefeld schreiben
			Passwort() ; Funktion Passwort() aufrufen
		Case $Button ; Benutzer hat auf den 'Start'-Button geklickt
			Passwort() ; Funktion Passwort() aufrufen
		Case $GUI_EVENT_MINIMIZE ; Benutzer hat auf Minimieren geklickt
			Opt('TrayIconHide', 0) ; Tray-Menü anzeigen
			TraySetIcon(@SystemDir & '\shell32.dll', -212) ; Icon für Tray-Menü setzen
			GUISetState(@SW_HIDE, $GUI) ; Fenster verstecken
			While 2 ; Tray-Menü-Schleife
				Switch TrayGetMsg() ; Anhand des eingetretenen Tray-Ereignisses die entsprechenden Befehle ausführen 
					Case $TrayShow ; wurde 'Anzeigen' aufgerufen, dann...
						Opt('TrayIconHide', 1) ; Tray-Menü wieder verstecken
						GUISetState(@SW_SHOW, $GUI) ; Fenster anzeigen
						GUISetState(@SW_RESTORE, $GUI) ; und wiederherstellen (minimieren rückgängig machen)
						ExitLoop ; Tray-Menü-Schleife verlassen
					Case $TrayExit ; Benutzer hat 'Beenden' ausgewählt
						Exit ; Programm beenden
				EndSwitch
			WEnd
		Case $GUI_EVENT_CLOSE ; Benutzer hat auf 'X' geklickt oder 'ESC' gedrückt
			Exit ; Programm beenden
	EndSwitch
Wend

Func Passwort()
	Local $choice = Number(StringLeft(GUICtrlRead($Combo), 1)) ; den 1. Buchstaben von links (Zahl) der Combobox (Passwort-Stärke) auslesen und als $key-Auswahl speichern
	Local $i, $pass = '' ; Passwort = Leerstring
	For $i = 1 To Number(GUICtrlRead($Range)) ; Schleife von 1 bis eingestellter Passwortlänge
		$pass &= StringMid($key[$choice-1], Random(1, StringLen($key[$choice-1]), 1), 1) ; dem Passwort ein zufälliges Zeichen aus dem ausgewählten Stärkestring hinzufügen  
	Next ; Schleife fortsetzen
	GUICtrlSetData($Code, $pass) ; das generierte Passwort in das Ausgabefeld schreiben
	GUICtrlSetState($Code, $GUI_FOCUS) ; den Focus auf das Ausgabefeld, damit man das Passwort einfach per Kontextmenü ('Kopieren') in die Zwischenablage packen kann
EndFunc
Soviel zum Thema 'vollendet'..

und ansonsten alles Gute zum 11. Geburtstag o0"

so long, coRe
Blablabla.. ich hab das aus Oscars Sammlung...
FrEakY. is offline  
Old 03/21/2010, 10:24   #40
 
Σternαl.'s Avatar
 
elite*gold: 20
The Black Market: 0/0/0
Join Date: Dec 2009
Posts: 1,850
Received Thanks: 484
Quote:
Originally Posted by coladose View Post
Blablabla.. ich hab das aus Oscars Sammlung...
Kiddy....

Und so viel zum Thema leechen.....
Attached Images
File Type: jpg fail2.JPG (116.0 KB, 24 views)
Σternαl. is offline  
Reply
Page 3 of 3 12 3

« [Frage] 2 kleine bot fragen =) | Noch ein Bot Problem »

Similar Threads Similar Threads
[Release] NPC Generator
10/18/2010 - Flyff PServer Guides & Releases - 34 Replies
Hallo E*PvP'er, da mein Biete Thread für den NPC Generator denke ich eventuell nicht gut ankam, da es so wenig Infos gab oder der Preis mit 20€ zu hoch war für euch. Naja, ich möchte keinen abschrecken oder ihm etwas "andrehen" =), ohne das er/sie die Gelegenheit hatte, das Programm zu Testen. Ich habe da eine simple aber gute Methode gefunden, euch diese Möglichkeit zu bieten.
[RELEASE] Passwort Generator
05/01/2010 - Main - 10 Replies
Hallo comm, Ich hab ein kleines tool programmiert mit dem ihr die möglichkeit habt eure daten für ein spiel oder ehnliches hineinzuschreiben und direckt als txt datei in eurem system zu speicher auserdem könnt ihr euch ein passwort aus 6 zahlen generieren lassen ich hoffe es gefällt euch http://img530.imageshack.us/img530/5503/aufzeichn enai.th.jpg Uploaded with ImageShack.us Virustotal: Virustotal. MD5: e58a6f96a88336b98c9cc226c52714cf



All times are GMT +2. The time now is 07:26.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.