七行プログラミング

七行プログラミングat PHP

七行プログラミング - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

300:7telnetd
 04/03/25 10:13 
cd 実装。 
 
#!/usr/bin/perl 
use IO::Socket;$S=new IO::Socket::INET(Listen,1,LocalPort,1029,Reuse,1);sub p{ 
print$C @_}sub g($){($_=getc$C)eq pop}$n="\x0D\x0A";{binmode($C=$S->accept);$e= 
1;$b='';p$p='$ ';{g"\xFF"?g"\xF7"?chop$b:/\xF8/?($b=''):/[\xFB-\xFE]/?do{$c=ord 
()-251;g"\x01"?($e=$c&2):/\x22/?($c&1or$e=0):($c=1);p pack(C2,255,250+(4,2,2,4, 
3,2,1,4)[$c&1?$c:$c+4]),$_}:0:/\x00/?(($_,$b)=$b,s/[$n]+\z//,/^exit$/&&last,p$n 
,(/^cd\s+/?chdir$':map{s/\s+\z/$n/;$_}`$_`),$p):(/\x08/?chop$b:($b.=$_),/[$n]/ 
||$e&&p$_);redo}close$C;redo}

301:ｸﾀﾞﾗﾝけど
 04/03/25 11:06 
■ 7jump.cgi（ime.nuクローン） 
 ttp://hoge.com/7jump.cgi/http://www.2ch.net/ スキーマ指定可能 
 ttp://hoge.com/7jump.cgi/www.2ch.net/ 省略時はhttp:// 
  
#! perl 
use CGI":all";charset$c='EUC-JP';$_=path_info;s|^/||;s/\"/"/g;s/\'/？/g 
;s/</</g;s/>/>/g;s/&(?![\#0-9a-zA-Z]+;?)/&/g;$_="http://$_"if!/:/;($m 
,$a)=<DATA>;put header,start_html(-title=>"7jump",encoding,$c,lang,ja),p(strong 
(a{href,$_},$_).br.$m),hr,address($a),end_html; 
 
__DATA__ 
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください 
Powered by WebProg

次ページ