毒電波を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);~ } コメント†
|