Strong Password Generator

Platform: mIRC

Published Jun 24, 2012

Updated Jun 25, 2012

231 4

Here is good password generator.

Syntax :
!genpass - For other users
/genpass - For you.

ALERT :
I don't care what you do with this.

TO DO :
Just put it in your remote and click "OK" and it will work.

BUG? SUGGESTION? FEEL FREE ^_^

; Strong Password Generator

; By MiNdFrEaKeR/SaGaR/IlLuSiOn

; gs.mindfreakers.net #Hawkee



alias genpass { var %i = $rand(7, 10), %pass, %str = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz^#&)(@%<>, %len = $len(%str)

  while (%i) { %pass = %pass $+ $mid(%str, $rand(1, %len), 1) | dec %i }

echo -at Password Generated : %pass  }



on *:TEXT!genpass:#: { var %i = $rand(7, 10), %pass, %str = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz^#&)(@%<>, %len = $len(%str)

  while (%i) { %pass = %pass $+ $mid(%str, $rand(1, %len), 1) | dec %i }

  notice $nick Generating password, please wait...

timer 1 2 notice $nick Password Generated : %pass  }

Comments

FreakServ - Jun 25, 2012

LOL :P ok @SReject

Respond

SReject - Jun 25, 2012

if it didn't have the ()'s I'd've stuffed it all in the regex :P

Respond

FreakServ - Jun 25, 2012

@SReject : Thanks for the suggestion :) but i actually don't go along with using regex.

Respond

SReject - Jun 25, 2012

		Code 			
alias genpass {
  var %str = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz^#&)(@%<>
  echo -at Password Generated : $regsubex($str(_,$r(7,10),/_/g,$mid(%str,$r(1,$len($str)),1))	

1 Response

Yawhatnever - 9 days ago

		Code 			
$mid(, $r(1, $len($str)), 1)	

should be

		Code 			
$mid(, $r(1, $len(%str)), 1)	

Using your method, the code could be shortened to the following:

		Code 			
on *:TEXT:!genpass:#:notice $nick Password Generated: $genpass
alias genpass {
  var %str = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz^#&)(@%<>
  $iif($isid, return, echo -at Password Generated:) $regsubex($str(_, $r(7, 10), /_/g, $mid(%str, $r(1, $len(%str)), 1))	
}
	