08/08/07 14:56:20 +5ayY0ev.net
#!/usr/bin/perl
use strict;use Socket;use MIME::Base64;use Encode;use Encode::Guess;
#URLﾘﾝｸ(www.avion.co.jp)
#my @portary=(2100, 2102, 2106, 2107);
#my $host="app2.avion.co.jp";
#my $room=275593;
#my $port=$portary[$room%4];
#URLﾘﾝｸ(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);