#!/usr/local/bin/perl
#
#   trip.pl -- generate 2ch trip string from password.
#
#

while (1){

    print "Input passwd: ";
    $passwd = <STDIN>;
    chop $passwd;
    print "Passwd =  \#$passwd\n";

    $salt = substr($passwd."H.", 1, 2);
#    print "salt = $salt\n";

    $salt =~ s/[^\.-z]/\./go;
    $salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
    $trip = substr(crypt($passwd, $salt),-8);

    print "Trip   = ¢¡$trip\n\n";
}