Displaying 1 result from an estimated 1 matches for "namedata".
Did you mean:
gamedata
1997 Sep 28
0
[IPD] Internet Probe Droid
...;'s output
$login = $a[2]; # <----- TOGGLE!
$hash{$login} = [ &pw_filter(@a) ];
print "Data: account-> $login, pws-> @{$hash{$login}}\n\n" if $debug;
}
}
sub refine_passwdfile_data {
for (@accountdata) {
@fields = split(/:/);
@namedata = split(/,/, $fields[4]);
print "pwdata: $fields[0] $namedata[0]\n" if $debug;
$login = $fields[0];
$namedata[0] =~ tr/A-Z/a-z/;
@a = split(/ /, $namedata[0]);
print "pw_filter: ", join('' '', &pw_filter(@a)), "\n" if $...