Jetchatの裏技で勝ちたいです。 (242ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

150(1): 藤崎瑞希 2008/08/07(木)14:56 ID:+5ayY0ev(1) AAS
#!/usr/bin/perl
use strict;use Socket;use MIME::Base64;use Encode;use Encode::Guess;
#外部ﾘﾝｸ[php3]:www.avion.co.jp
#my @portary=(2100, 2102, 2106, 2107);
#my $host="app2.avion.co.jp";
#my $room=275593;
#my $port=$portary[$room%4];
#外部ﾘﾝｸ[php3]:www3.fumi23.com恋バナチャット３&image=007&bg=FF9898
my $host="www3.fumi23.com";my $room=3019;my $port=2100;
my $ipaddr_bin = inet_aton($host);
my $ipaddr_str = inet_ntoa($ipaddr_bin);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "cannot open socket $!";
connect(SOCKET, pack_sockaddr_in($port,$ipaddr_bin)) || die "cannot connect socket $!";
select(SOCKET);$|=1;select(STDOUT);
print SOCKET "# ".$room." 0 LOG=ON\n";print SOCKET "?\n";
while(1){my $res=<SOCKET>;print "chat:".encode("SJIS", decode("UTF-16LE", decode_base64($res))).":\n";}
close(SOCKET);

---

173: ぷ 2008/10/28(火)15:06 ID:??? AAS
>>150　って結構おもしろい裏技（？）だな
ブラウザ使わなくてもチャットのログが見れる

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.220s*