【ｽﾚｯﾄﾞ】2ｃｈ型掲示板その5【ﾌﾛｰﾄ型】

886 ： ◆sUY48rs. ：02/07/28 23:08 ID:???: １０桁トリップできますた。
cryptした後の文字列を後ろから８文字取り出していたのを
後ろから１０文字取り出す様に変更しただけのようです。
実験室で実験済み。

以下例
sub trip {
my($k,$s,$n);
$k = substr( ${$_[1]}, index( ${$_[1]}, '#' ) + 1 );
$s = substr( substr($k,0,8).'H.', 1, 2 );
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;

substr crypt($k, $s), -10;　# ここが違う。前は substr crypt($k, $s), -10;
}
887 ： ◆sUY48rs. ：02/07/28 23:09 ID:???: ×# ここが違う。前は substr crypt($k, $s), -10;
○# ここが違う。前は substr crypt($k, $s), -8;

間違えた・・・

187KB

新着レスの表示