Good one sunslayer :) I had this.
alias pass { $iif($isid,return,echo -a) $regsubex($str(.,$1),/./g,$chr($iif($r(0,2),$iif($r(0,1),$r(65,90),$r(97,122)),$r(48,57)))) }
Mine excludes special characters.