Advertisement
Guest User

Untitled

a guest
Oct 25th, 2014
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use IO::Socket;
  5. #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
  6.  
  7.  
  8. #############################
  9. my $nick = ' '; #deixa um espaço para ir para todos
  10. my $urlnumero = 5;
  11. ###########################
  12.  
  13.  
  14. my $ii =0;
  15. my $mens = "k k kk";
  16. my $id = 64+length($nick);
  17. my $socket = IO::Socket::INET->new(
  18.     PeerAddr => "bp$urlnumero.batepapo.uol.com.br",
  19.         PeerPort => "http(80)",
  20.             Proto => "tcp") or
  21.             #                 __^__
  22.                    die "Error: $!";
  23. while(1){
  24. # usleep(100000);
  25.                    print $socket "
  26. 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
  27. Host: bp$urlnumero.batepapo.uol.com.br
  28. User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:22.0) Gecko/20100101 Firefox/22.0
  29. Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  30. Accept-Language: en-US,en;q=0.5
  31. Accept-Encoding: gzip, deflate
  32. Referer: http://bp9.batepapo.uol.com.br/room.html
  33. Connection: keep-alive
  34. Content-Type: application/x-www-form-urlencoded
  35. Content-Length: $id
  36.  
  37. so=s25.wav&ei=louco.gif&pk=&re=".$nick."&ty=false&st=fala+para&me=".$mens."
  38.  
  39.  
  40. ";
  41. if($id>100)
  42. {
  43. $mens = "k k kk";
  44. $id = 64+length($nick);
  45. $ii = $ii+1;
  46. if($ii==10)
  47. {
  48. $ii=0;
  49. close $socket;
  50. $socket = IO::Socket::INET->new(
  51.     PeerAddr => "bp$urlnumero.batepapo.uol.com.br",
  52.         PeerPort => "http(80)",
  53.             Proto => "tcp") or  # Note or instead of ;
  54.             #                 __^__
  55.                                                 die "Error: $!";
  56.             #
  57. }
  58. # usleep(1000000);
  59.  
  60. #print "x\n";
  61. }
  62. else
  63. {
  64. $mens = $mens." k";
  65. $id = $id +2;
  66.  
  67. }
  68.  
  69. }
  70.  
  71. close $socket;          
  72.  
  73.  
  74.  
  75. #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