板 1- 前 次 新 ﾚｽ
真央ﾀﾝのｱﾉ日(血)◆ﾄﾘｯﾌﾟ・ﾁｪｲｻｰ◆常駐ｽﾚpart105
[116] ◆eroya.uKKA ：2006/01/17(火) 20:05:56 0
>>114 こいつをバカでも使えるようにしてくれ #! /usr/local/bin/perl -w if(!$ARGV[0]){ print "キーの文字数を入力してください。"; exit; } if($ARGV[0] !~ /\d/ || $ARGV[0] > 4){ print "キーの文字数が不正です。"; exit; } if(!$ARGV[1]){ print "検索する文字列を入力してください。"; exit; } &jikan; $time = 0; print " $time -> "; while(1){ $keta = $ARGV[0]; $key =''; while($keta > 0){ $key .= '%130%'; $key2 = int(rand 83); $key2 = $key2 + 159; $key .= $key2; $keta = $keta - 1; } $key =~ s/%(\d+)/pack("C", $1)/eg;
前 次 新
0ch BBS 2004-01-25