★三　【スクリプト改造工房 PART 9 】　★三

★三　【スクリプト� ..

335:nobodyさん
08/08/07 13:46:25 qpI1q2Ei
【CGI名】 PRTC BBS
【配布先URL】一般に配布されていません
【ヘルプ内容】暗号化をしたいです

URLﾘﾝｸ(www.rescue.ne.jp)
このサイトのような感じで(もっと簡素でも構いません)
とにかく出力をしたいんです
下記のソースでcgiを動かしたいのですが、初心者でわかりません
知識不足なのはわかっているのですがどうしてもやりたいです
よろしくお願いします

sub enc_string{
my ($key, $string) = @_;
my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&');
my @key = unpack('C*', $key);
my $str = '';
my @x = map { int(rand(200)) } (0 ... 2);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
while($string ne ''){
my $n = substr($string, 0, 3, '');
my @n = unpack('C3', $n);
map{$n[$_] ^= ($key[$_])} (0 ... 2);

次ページ