Strong Password Generator

By sagargulati on Jun 24, 2012

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  }

Like Page Follow Author

Comments

sagargulati - 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

sagargulati - Jun 25, 2012

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

Respond

SReject - Jun 25, 2012

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 - Jun 11, 2013

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

should be

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

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

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))    
}