atom_man commented on a Page, Password Generator  -  Apr 09, 2008

lol. it removed my escape\'s..

This should solve it.


alias pass_ {
  if (!$2) { tokenize 32 $1 10 }
  var %b = 0,%a
  if (A-Z isincs $1) { %b = $regsubex($str(1,26),/(1)/g,$chr($calc(64 + \\\\n))) }
  if (a-z isincs $1) { %b = %b $+ $regsubex($str(1,26),/(1)/g,$chr($calc(96 + \\\\n))) }
  if (0-9 isin $1) { %b = %b $+ $regsubex($str(1,10),/(1)/g,$chr($calc(47 + \\\\n))) }
  if (%b = 0) { %b = $1 }
  %a = $regsubex(%b,/(.)/g,$regml($r(1,$regml(0))))
  noop $regex(%a,/(?=(.{ $+ $2 $+ }))/g)
  return $regml($r(1,$regml(0)))
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.