Os Melhores

#!/usr/bin/perl use strict; use warnings; use POSIX ":sys_wait_h"; use Socket; use IO::Handle; my $limite_conexoes = 50; my $tempo_bloqueio = 4 * 3600; my %conexoes_por_ip; my $arquivo_ban = "ban.txt"; system("iptables -F"); system("iptables -A INPUT -m state --state ESTABLISHED,RELATED -j ACCEPT"); system("iptables -A INPUT -j DROP"); system("iptables -A INPUT -p tcp --syn -m connlimit --connlimit-above $limite_conexoes -j REJECT --reject-with tcp-reset"); my $socket; socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die ": $!"; setsockopt($socket, SOL_SOCKET, SO_REUSEADDR, 1) or die ": $!"; my $endereco = sockaddr_in(0, INADDR_ANY); bind($socket, $endereco) or die ": $!"; listen($socket, SOMAXCONN) or die ": $!"; while (1) { my $cliente = accept(NOVACONEXAO, $socket); my ($porta_cliente, $endereco_cliente) = sockaddr_in($cliente); my $ip_cliente = inet_ntoa($endereco_cliente); $conexoes_por_ip{$ip_cliente}++; if ($conexoes_por_ip{$ip_cliente} > $limite_conexoes) { bloquear_ip($ip_cliente); } print "Conexão de $ip_cliente na porta $porta_cliente aceita.\n"; close(NOVACONEXAO); } close($socket); sub bloquear_ip { my $ip = shift; open(my $ban_fh, '>>', $arquivo_ban) or die "Não foi possível abrir o arquivo $arquivo_ban: $!"; print $ban_fh "$ip\n"; close($ban_fh); system("iptables -A INPUT -s $ip -j DROP"); print "IP $ip bloqueado por $tempo_bloqueio segundos.\n"; sleep($tempo_bloqueio); system("iptables -D INPUT -s $ip -j DROP"); print "IP $ip desbloqueado.\n"; } DDOS Simulado com a ferramenta:Unicorn is a Win32 UDP flooding/DoS (Denial of Service)

Olá comunidade suportegm, Bem, hoje vou compartilhar com vocês algo que nós, os mais antigos, usamos bastante para descobrir problemas que causam quedas estranhas no mapa, Essa ferramenta ataca o serviço (GS), e compartilha conosco informações a fundo do que ocasionou a queda no mapa. Muitas pessoas cobram por serviços para descobrir quedas repentinas, então vim diminuir esse monopólio. # Problemas normalmente relatados por ele: - Login de personagem mal editado, ou com problemas no octets. - Edições que não foram suportadas pelo client, causando erros de asset. - Problemas com habilidades. - Problemas com instâncias. - Problemas com atributos e muito mais. # Requisitos para operar essa ferramenta: - Nível básico em linux. - Entender o básico como opera os serviços do perfect world. - Nível básico em assembly. # Instalando o gdb: - Com o nível básico em linux, você irá instalar o gdb em seu servidor, podendo ser: apt-get install gdb yum install gdb - Após instalado, com o jogo ligado, você vai executar o comando: gdb attach $(pidof gs) -ex cont - Ficará dessa forma abaixo, logo, você digite c, e aguarde o mapa cair novamente: - Após cair o mapa, dará uma mensagem de erro, onde foi a falha, para obter mais informações sobre, você deve digitar: bt E pronto, você já terá todas as informações necessárias que precisa para corrigir os problemas. É isso, até a próxima.