Lines Matching refs:gen_s

121 my $gen_u; my $gen_s; my $gen_soutput, my $gen_stype; my $gen_s2; my $gen_pw; my @gen_c; my @gen_to…
4415 	$gen_s = ""; $gen_u = ""; $gen_s2 = "";
4688 		if ($gen_stype eq "ashex") { $gen_s=md5_hex($argsalt); }
4689 		else { $gen_s=$argsalt; }
4690 		if (!defined $gen_s) {$gen_s = get_salt(4);}
4691 		$gen_soutput = $gen_s;
4692 		$saltlen = length($gen_s);
4693 		if ($gen_stype eq "tohex") { $gen_s=md5_hex($gen_s); }
4695 		if ($gen_stype eq "ashex") { $gen_s=randstr(32, \@chrHexLo); }
4696 		elsif ($gen_stype eq "asHEX") { $gen_s=uc randstr(32, \@chrHexLo); }
4697 		elsif ($gen_stype eq "asHEX64") { $gen_s=uc randstr(64, \@chrHexLo); }
4705 				$gen_s=randstr($slen, \@chrHexLo);
4707 				$gen_s=randstr($slen);
4710 		$gen_soutput = $gen_s;
4711 		if ($gen_stype eq "tohex") { $gen_s=md5_hex($gen_s); }
4715 	if (defined($gen_stype) && $gen_stype eq "toS2hex") { $gen_s2 = md5_hex($gen_s);  }
4739 sub dynamic_app_s  { $gen_Stack[@gen_Stack-1] .= $gen_s; }
4740 sub dynamic_app_sh { $gen_Stack[@gen_Stack-1] .= $gen_s; } #md5_hex($gen_s); }