Random password generator - Revision history

Vliedel: removed white rules

2007-03-24T13:15:11Z

removed white rules

← Older revision		Revision as of 13:15, 24 March 2007
Line 12:		Line 12:
	; if a space (chr 32) is in the used characters, the returned password could be too short		; if a space (chr 32) is in the used characters, the returned password could be too short
	; because mirc cuts of double spaces and spaces at the beginning and end of the returned password		; because mirc cuts of double spaces and spaces at the beginning and end of the returned password


	[[alias]] pwgen {		[[alias]] pwgen {
	; first we check if this alias is used as identifier		; first we check if this alias is used as identifier

Cail at 09:47, 11 September 2006

2006-09-11T09:47:39Z

← Older revision		Revision as of 09:47, 11 September 2006
Line 18:		Line 18:
	if (![[$isid]]) { [[return]] }		if (![[$isid]]) { [[return]] }
	; also check if the length is not 0		; also check if the length is not 0
	if ([[$int]]([[$1]]) == 0) { return }		if ([[$int]]([[$1-\|$1]]) == 0) { return }
	; the next part will fill &chars with characters that can be picked to make the password		; the next part will fill &chars with characters that can be picked to make the password
	;		;

Vliedel at 10:55, 6 June 2006

2006-06-06T10:55:36Z

← Older revision		Revision as of 10:55, 6 June 2006
Line 1:		Line 1:
	This script will allow you to generate a random password of required length and using characters you want to.		This script will allow you to generate a random password of required length and using characters you want to.

			; Written by Vliedel
			; Contact at irc.quakenet.org -> #help.script
	; Usage: $pwgen(length,used characters)		; Usage: $pwgen(length,used characters)
	; Examples		; Examples

Vliedel at 10:49, 6 June 2006

2006-06-06T10:49:56Z

← Older revision		Revision as of 10:49, 6 June 2006
Line 15:		Line 15:
	; first we check if this alias is used as identifier		; first we check if this alias is used as identifier
	if (![[$isid]]) { [[return]] }		if (![[$isid]]) { [[return]] }
	; also check if the length is ~~correct~~		; also check if the length is not 0
	if ([[$int]]([[$1]]) == 0) { return }		if ([[$int]]([[$1]]) == 0) { return }
	; the next part will fill &chars with characters that can be picked to make the password		; the next part will fill &chars with characters that can be picked to make the password
Line 44:		Line 44:
	while (%i > 0) {		while (%i > 0) {
	; again we use a binvar so we can add spaces		; again we use a binvar so we can add spaces
	bcopy &pw %i &chars $rand(1,$bvar(&chars,0)) 1		[[bcopy]] &pw %i &chars $rand(1,$bvar(&chars,0)) 1
	dec %i		dec %i
	}		}

Vliedel at 10:47, 6 June 2006

2006-06-06T10:47:40Z

← Older revision		Revision as of 10:47, 6 June 2006
Line 4:		Line 4:
	; Examples		; Examples
	; $pwgen(10,a-z A-Z)		; $pwgen(10,a-z A-Z)
			; $pwgen(30,0-5 ! . @)
	; $pwgen(20,a-z 0-9 0-9)		; $pwgen(20,a-z 0-9 0-9)
	; $pwgen(17,0-9 [[$chr]](36) $+ - $+ $chr(41))		; $pwgen(17,0-9 [[$chr]](36) $+ - $+ $chr(41))
			; Note
			; if a space (chr 32) is in the used characters, the returned password could be too short
			; because mirc cuts of double spaces and spaces at the beginning and end of the returned password


	[[alias]] pwgen {		[[alias]] pwgen {
Line 18:		Line 23:
	[[while]] (%i > 0) {		[[while]] (%i > 0) {
	var %set = [[$gettok]]($2,%i,32)		var %set = [[$gettok]]($2,%i,32)
	~~; if the length of the current set is 3, we assume its the right syntax~~
	~~[[if]] ([[$len]](%set) == 3) {~~
	; get the ascii values of the two characters		; get the ascii values of the two characters
	var %asc1 = [[$asc]]([[$left]](%set,1)) , %asc2 = $asc([[$right]](%set,1))		var %asc1 = [[$asc]]([[$left]](%set,1)) , %asc2 = $asc([[$right]](%set,1))
	var %j = [[$iif]](%asc1 < %asc2,%asc1,%asc2) , %max = $iif(%asc1 < %asc2,%asc2,%asc1)		var %j = [[$iif]](%asc1 < %asc2,%asc1,%asc2) , %max = $iif(%asc1 < %asc2,%asc2,%asc1)
	; we will loop from the smallest ascii number to the largest		; we will loop from the smallest ascii number to the largest
	while (%j <= %max) {		while (%j <= %max) {
	; we add the ascii value to the &chars binvar		; we add the ascii value to the &chars binvar
	[[bset]] &chars [[$calc]]([[$bvar]](&chars,0) + 1) %j		; we use a binvar so we won't get troubles with the maximum length of a variable
	[[inc]] %j		[[bset]] &chars [[$calc]]([[$bvar]](&chars,0) + 1) %j
	}		[[inc]] %j
	}		}
	[[dec]] %i		[[dec]] %i
Line 40:		Line 43:
	; (wich is approximate the limit of commands)		; (wich is approximate the limit of commands)
	while (%i > 0) {		while (%i > 0) {
	~~var %~~pw = %~~pw $+ $bvar(~~&chars~~,[[~~$rand]](1,$bvar(&chars,0))~~).text~~		; again we use a binvar so we can add spaces
			bcopy &pw %i &chars $rand(1,$bvar(&chars,0)) 1
	dec %i		dec %i
	}		}
	; ~~and its done~~		; to avoid the "space bug" (see the note), you may want to use the binvar
	return %pw		; in that case we return the binvar name, uncomment the next line
			; return &pw
			return $bvar(&pw,1,$bvar(&pw,0)).text
	}		}

	[[Category:Script Archive]]		[[Category:Script Archive]]

Shenghi at 22:54, 5 June 2006

2006-06-05T22:54:02Z

← Older revision		Revision as of 22:54, 5 June 2006
Line 1:		Line 1:
	This script will allow you to generate a random password, of required length and using characters you want to.		This script will allow you to generate a random password of required length and using characters you want to.

	; Usage: $pwgen(length,used characters)		; Usage: $pwgen(length,used characters)

Vliedel at 20:51, 5 June 2006

2006-06-05T20:51:15Z

← Older revision		Revision as of 20:51, 5 June 2006
Line 11:		Line 11:
	if (![[$isid]]) { [[return]] }		if (![[$isid]]) { [[return]] }
	; also check if the length is correct		; also check if the length is correct
	if ([[$int]]($1) == 0) { return }		if ([[$int]]([[$1]]) == 0) { return }
	; the next part will fill &chars with characters that can be picked to make the password		; the next part will fill &chars with characters that can be picked to make the password
	;		;

Vliedel at 20:49, 5 June 2006

2006-06-05T20:49:27Z

← Older revision		Revision as of 20:49, 5 June 2006
Line 10:		Line 10:
	; first we check if this alias is used as identifier		; first we check if this alias is used as identifier
	if (![[$isid]]) { [[return]] }		if (![[$isid]]) { [[return]] }
			; also check if the length is correct
			if ([[$int]]($1) == 0) { return }
	; the next part will fill &chars with characters that can be picked to make the password		; the next part will fill &chars with characters that can be picked to make the password
	;		;
Line 30:		Line 32:
	[[dec]] %i		[[dec]] %i
	}		}
			; check if &chars is not empty
			if ($bvar(&chars,0) == 0) { return }
	;		;
	; now we filled &chars we randomly pick characters out of &chars to make the password		; now we filled &chars we randomly pick characters out of &chars to make the password
	var %i = $iif([[$abs]]([[$int]]($1)) > 900,900,[[$v1]])		var %i = $iif([[$abs]]($int($1)) > 900,900,[[$v1]])
	; we do this $1 times, as long as its not larger then 900		; we do this $1 times, as long as its not larger then 900
	; (wich is approximate the limit of commands)		; (wich is approximate the limit of commands)
	while (%i > 0) {		while (%i > 0) {
	var %pw = %pw $+ [[$~~mid]]~~(%chars,$rand(1,$~~len~~(%chars)),1)		var %pw = %pw $+ $bvar(&chars,[[$rand]](1,$bvar(&chars,0))).text
	dec %i		dec %i
	}		}

Microbe: added category

2006-06-05T20:44:38Z

added category

← Older revision		Revision as of 20:44, 5 June 2006
Line 42:		Line 42:
	return %pw		return %pw
	}		}

			[[Category:Script Archive]]

Vliedel at 20:34, 5 June 2006

2006-06-05T20:34:18Z

← Older revision		Revision as of 20:34, 5 June 2006
Line 7:		Line 7:
	; $pwgen(17,0-9 [[$chr]](36) $+ - $+ $chr(41))		; $pwgen(17,0-9 [[$chr]](36) $+ - $+ $chr(41))

	alias pwgen {		[[alias]] pwgen {
	; first we check if this alias is used as identifier		; first we check if this alias is used as identifier
	if (![[$isid]]) { return }		if (![[$isid]]) { [[return]] }
	; the next part will fill &chars with characters that can be picked to make the password		; the next part will fill &chars with characters that can be picked to make the password
	;		;
	; we cycle the different sets of "used characters"		; we cycle the different sets of "used characters"
	var %i = $numtok($2,32)		[[var]] %i = [[$numtok]]($2,32)
	while (%i > 0) {		[[while]] (%i > 0) {
	var %set = $gettok($2,%i,32)		var %set = [[$gettok]]($2,%i,32)
	; if the length of the current set is 3, we assume its the right syntax		; if the length of the current set is 3, we assume its the right syntax
	if ($len(%set) == 3) {		[[if]] ([[$len]](%set) == 3) {
	; get the ascii values of the two characters		; get the ascii values of the two characters
	var %asc1 = $asc($left(%set,1)) , %asc2 = $asc($right(%set,1))		var %asc1 = [[$asc]]([[$left]](%set,1)) , %asc2 = $asc([[$right]](%set,1))
	var %j = $iif(%asc1 < %asc2,%asc1,%asc2) , %max = $iif(%asc1 < %asc2,%asc2,%asc1)		var %j = [[$iif]](%asc1 < %asc2,%asc1,%asc2) , %max = $iif(%asc1 < %asc2,%asc2,%asc1)
	; we will loop from the smallest ascii number to the largest		; we will loop from the smallest ascii number to the largest
	while (%j <= %max) {		while (%j <= %max) {
	; we add the ascii value to the &chars binvar		; we add the ascii value to the &chars binvar
	bset &chars $calc($bvar(&chars,0) + 1) %j		[[bset]] &chars [[$calc]]([[$bvar]](&chars,0) + 1) %j
	inc %j		[[inc]] %j
	}		}
	}		}
	dec %i		[[dec]] %i
	}		}
	;		;
	; now we filled &chars we randomly pick characters out of &chars to make the password		; now we filled &chars we randomly pick characters out of &chars to make the password
	var %i = $iif($abs($int($1)) > 900,900,$v1)		var %i = $iif([[$abs]]([[$int]]($1)) > 900,900,[[$v1]])
	; we do this $1 times, as long as its not larger then 900		; we do this $1 times, as long as its not larger then 900
	; (wich is approximate the limit of commands)		; (wich is approximate the limit of commands)
	while (%i > 0) {		while (%i > 0) {
	var %pw = %pw $+ $mid(%chars,$rand(1,$len(%chars)),1)		var %pw = %pw $+ [[$mid]](%chars,$rand(1,$len(%chars)),1)
	dec %i		dec %i
	}		}