PureBasic

Forums PureBasic
Nous sommes le Mer 19/Juin/2019 10:04

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 10 messages ] 
Auteur Message
 Sujet du message: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 11:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6853
Localisation: IDF (Yvelines)
Je vous propose d'expérimenter un ban ip avec le code qui va suivre.

-Ce code se connecte sur un serveur mutualisé basé chez 1and1.

-Un script Php est lancé créant un fichier json pour chaque ip qui se connecte.

■ Ce fichier Json contient :
- L'adresse ip du client qui se connecte,
- Un flag de création de compte,
- Le nombre de connexion,
- Le nombre de tentatives de flood. (La limite étant fixé à 4), flood
Citation:
"ip":"80.13.XXX.XXX","AccountCreate":1,"CountConnect":11,"Flood":0}

Pressez la touche F5 pour exécuter ce code. Si vous respectez un intervalle de 5 secondes environ entre chaque appui sur la touche F5, vous ne serez pas ban.

:idea: Bien évidement je vous demanderais de ne pas respecter cette règle et vous verrez le compteur de flood s'incrémenter de 1 en 1.

Si vous respectez à nouveau les 5 secondes de délais, le compteur de flood sera remis à zero.

Après 4 tentatives de flood, vous serez ban ip.

Merci pour votre participation.
Code:
EnableExplicit

#PR_Test = 0

Global url.s = "http://s242132022.onlinehome.fr/2ox/"

Procedure ServerEnable()
  Protected Header.s, Buffer.s, Result.b
 
  Header = GetHTTPHeader(Url + "isenable")
  Buffer = StringField(Header, 1, #LF$)
 
  If FindString(buffer, "200 OK")
    Result = #True
  EndIf
  ProcedureReturn Result 
EndProcedure

Procedure.s Php(Script.s, Parameters.s = "")
  Protected UserAgent.s = "The quick brown fox jumps over the lazy dog."
  Protected *Buffer, Size, Buffer.s
 
  If ServerEnable()
    *buffer = ReceiveHTTPMemory(url + script + "/" + URLEncoder(parameters), #PB_HTTP_NoRedirect, UserAgent)
   
    If *buffer
      Size = MemorySize(*buffer)
      Buffer = PeekS(*buffer, Size, #PB_UTF8|#PB_ByteLength)
      FreeMemory(*buffer)
    EndIf
  EndIf
  ProcedureReturn Buffer
EndProcedure

Procedure Connect()
  Protected Parameters.s, Buffer.s, n
 
  Parameters = "?process=" + Str(#PR_Test)   
  Buffer = Php("421", Parameters)
 
  If Buffer     
    For n = 1 To CountString(Buffer, #CR$)
      Debug StringField(Buffer, n, #CR$)
    Next
  Else
    Debug "Sorry, You're banned (ip) ^_^"
  EndIf   
EndProcedure

InitNetwork()
Connect()
Bon flood et que le ban soit avec vous :mrgreen:

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat & http://purebasic.chat/forum

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 12:32 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8670
Citation:
Sorry, You're banned (ip) ^_^

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 12:40 
En ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6626
Localisation: Isere
''Very bad trip'' administrator a écrit:
Attention you must wait a few seconds. ( >5 Seconds) Try one later ....
Hey you! Trying a Flood?
YES ! THIS IS A FLOOD
GO Away. You're banned !!'


Image

I'm Image of PB FORUM, i want to die !!!!!
Ouuuuuuuuuuuiiinnn !!!!!!!!

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 12:49 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6853
Localisation: IDF (Yvelines)
Image

Merci pour votre participation.

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat & http://purebasic.chat/forum

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 14:09 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 14/Oct/2004 19:48
Messages: 1122
"Mais pourquoi est il aussi méchant ?" Image

_________________
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 5.45LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 15:29 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3959
essayé 7 fois :

Citation:
Acces Process and USER AGENT ok
Votre IP : 90.7.135.123

Attention you must wait a few seconds. ( >5 Seconds) Try one later ....
Hey you! Trying a Flood?
This is your last chance. ^-^

RESULT : User setup
The current server timezone is: Europe/Berlin
Last modified: May 20 2018 16:28:13.

JSON Content: {"ip":"90.7.135.123","AccountCreate":1,"CountConnect":2,"Flood":4}

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 15:55 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 11/Fév/2005 17:34
Messages: 4210
Localisation: Arras, France
:lol:


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 21:13 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6853
Localisation: IDF (Yvelines)
SPH Le magnifique a écrit:
essayé 7 fois :
Oui .... mais pas assez vite :wink:

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat & http://purebasic.chat/forum

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Dim 20/Mai/2018 21:24 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6853
Localisation: IDF (Yvelines)
Merci aux 5 participant de s'être prêter au jeu.
Dans un geste magnanime j'ai décidé de vous dé-bannir.

Qu'il en soit ainsi.

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat & http://purebasic.chat/forum

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Expérimenter un ban IP ^-^
MessagePosté: Lun 21/Mai/2018 10:15 
En ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6626
Localisation: Isere
:lol:

Image

:mrgreen:

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 10 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye