Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use IO::Socket;
- #use URI::Escape;POST /send.html?ro=NP9-QXIfeS5TWd3jzCmloVhykn.bYLq2vJiRaABuUpgZEc7Hw8Gt0KsO416MFrDx455WBSnz3auZT5UcfM9gPZKk9GaNosEygAdPa2fwc8GW2dYHijQpcjDAZrpmmra3ujYFL0p2WDE2XYGW5Sz-HwU43CruLYABeVaf5i5UOoJIiG7-KK1TbKy1d9cTRQ2S2MW3HL8knAZTOZtGqG9gcmTU2xO2Kzn9VYMv18sVRGA73ub3jhb7ifJUzlf0JZJyTOBcucD7Z0oFygwiLFTS0HvY7jxaBFa2x2hcqhTcwk4t5CdUlX1-qfGf8oDeIHwpU3i8mmEzt-O-dBl1mm.D-9kxn9Zcq9Xaki5FK6oboV3dnykdamn-EXl2i3RkAwPcYPU2XrDSP0Lfcm8jXXE1AaBjxKZ5kW.72uz7n0i8oUKSQSDZJHBC0ja3y6ZHubPiODCMEo6X6F1d4MDbHFV9.A6ZkcGScmtNtipMza-jDbIhKu3qOR3vFSkCme5Q5P9Yq3ZIoBh0jb5HsjmzRGTs-QGM1UQn3Xm6XNzxPzhWKTumaIEjiwkdQUCrI7PkLa56V91EtnVmCnWQ4DwTJNAR9cPWf4Tvb4XKg1fJWRdz2xbANdSQTGrXeKN4N3UuWmOwKbsadUOvsw5WfuWxdnlYL.bAh0AxM1kcnBQzYHFK.xlYEMrDvvI8XpDUR4NJaS8Y HTTP/1.1
- #############################
- my $nick = ' '; #deixa um espaço para ir para todos
- my $urlnumero = 5;
- ###########################
- my $ii =0;
- my $mens = "k k kk";
- my $id = 64+length($nick);
- my $socket = IO::Socket::INET->new(
- PeerAddr => "bp$urlnumero.batepapo.uol.com.br",
- PeerPort => "http(80)",
- Proto => "tcp") or
- # __^__
- die "Error: $!";
- while(1){
- # usleep(100000);
- print $socket "
- POST POST /send.html?ro=ApEegraj1zKPONWhQ9i2R53XYv-DfHb7Ld0BkZmUMnqJsFcwTx.ou8CV4GlytI6SlzvSCMHv1N39gA2TGrxd38PE0QWhDHvXKhefIkz3TVoD3Yj.Sbxii450xsdJTS502ud.3CLsrRGxLHjwkz2eskxmV7gkkUY6no.lazpjmpWMQ0xm0nZGcgRPjTEtFvpbUf.R5QPhJGFK1ckEa.WeaowpNUOQvwFpYMBwDnp8y29HZS9jR56WUf0s4zr49E5vevCQ.YXBfXDCFbxJl.ytGmhU8FFpLPaF76Q60sS6kdZCCxXG0cdrwBjMWYMLrrAyrURcGHbmHaeILnL-ak4SGojaLu48XCjh5GA6BW.28tUrx7uIPQcQ.P4x5w27CQZBhmcg6-2xiiAV85bWTpJYf7He1IlM4ldC8L0zFKpqlLhmQ1Tpz04llxUeY7y22.DU2lZ0hsYridz-xex4ttuTF17M.aKWChuPNARFTWwrccWFZLFvHlh-kRRT1fRx70tg36BYx6GjOXwu.5XCBDo4yAe1seuP4aacslrUIU2.YAbCh9v2QCl7duyXwOWXv9w5ruvtJQDusccRnmfKaBY.DPo4iVMOLhhQQgix.JsTlWmtJprk.BSkojRIq-SVmPQqtvx6z7bwHquMXXZILDv3qA@@ HTTP/1.1
- Host: bp$urlnumero.batepapo.uol.com.br
- User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:22.0) Gecko/20100101 Firefox/22.0
- Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
- Accept-Language: en-US,en;q=0.5
- Accept-Encoding: gzip, deflate
- Referer: http://bp9.batepapo.uol.com.br/room.html
- Connection: keep-alive
- Content-Type: application/x-www-form-urlencoded
- Content-Length: $id
- so=s25.wav&ei=louco.gif&pk=&re=".$nick."&ty=false&st=fala+para&me=".$mens."
- ";
- if($id>100)
- {
- $mens = "k k kk";
- $id = 64+length($nick);
- $ii = $ii+1;
- if($ii==10)
- {
- $ii=0;
- close $socket;
- $socket = IO::Socket::INET->new(
- PeerAddr => "bp$urlnumero.batepapo.uol.com.br",
- PeerPort => "http(80)",
- Proto => "tcp") or # Note or instead of ;
- # __^__
- die "Error: $!";
- #
- }
- # usleep(1000000);
- #print "x\n";
- }
- else
- {
- $mens = $mens." k";
- $id = $id +2;
- }
- }
- close $socket;
- #javascript:{top.view_type%20="espiar";Batepapo.sendMessage%20=%20function%20(){var%20f=document.forms.message;if(f.me.value==""&&f.ei.value=="NULL"&&f.so.value=="NULL"){return%20false;}f.action="http://"+hostBpDomain+"/send.html?ro="+this.query_str;prompt("OI","POST%20/send.html?ro="+this.query_str+%20"%20HTTP/1.1"%20);prompt("OI",hostBpDomain);if(this.query_str&&this.query_str.length>0){f.submit();}setTimeout(function(){f.action="http://"+hostBpDomain+"/send.html";Batepapo.clearForm();},100);return%20false;};void(0);}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement