毒電波をUDPで送信するとか。(編集中)†想定条件†
メリット†
デメリット†
ソース(Perl)†sub send_sstp{#UDP毒電波~ use Socket;~
my($sender,$script) = @_;~
my $sstp_port =9801;~ my $addr=$ENV{'HTTP_X_FORWARDED_FOR'};~
if ($addr eq "") { $addr = $ENV{'REMOTE_ADDR'}; }~
my $proto = getprotobyname(COLOR(crimson){'udp'})((此処をudpにすればudpに成る筈?));~
socket(S, PF_INET, SOCK_STREAM, $proto);~
my $ent = sockaddr_in($sstp_port, inet_aton($addr));~
connect(S, $ent);~
eval{alarm("2");};~
select(S);~
$| = 1;~
select(STDOUT);~
print S "SEND SSTP/X.X\r\n";((ここでudp用の新しいヘッダタイプを作るなりパラメーターを追加するなり?))~
print S "Charset: Shift_JIS\r\n";~
print S "Sender: $sender\r\n";~
print S "Script: $script\\e\r\n";~
close(S);
return(undef);((UDPなので返り値は無し))~ } 参考 普通の毒電波†sub send_sstp{#毒電波~ use Socket;~
my($sender,$script) = @_;~
my $sstp_port =9801;~ my $result;~
my $addr=$ENV{'HTTP_X_FORWARDED_FOR'};~
if ($addr eq "") { $addr = $ENV{'REMOTE_ADDR'}; }~
my $proto = getprotobyname(COLOR(crimson){'tcp'});~
socket(S, PF_INET, SOCK_STREAM, $proto);~
my $ent = sockaddr_in($sstp_port, inet_aton($addr));~
connect(S, $ent);~
eval{alarm("2");};~
select(S);~
$| = 1;~
select(STDOUT);~
print S "SEND SSTP/1.1\r\n";~
print S "Charset: Shift_JIS\r\n";~
print S "Sender: $sender\r\n";~
print S "Script: $script\\e\r\n";~
COLOR(crimson){while (<S>){$result .= $_;};}
close(S);~
return($result);~
} コメント†
|