PureBasic

Voila, comme je suis hébergeur, et que je veux vérifier le contenu des comptes de mes hébergés sans passer par le web, sans chercher dans leur FTP, j'ai mis au point un anti-illégalité. Cela marche comme un anti-virus sauf que ça marche pas avec les virus

. Juste avec les choses illégales.
Au début, je voulais vous mettre le code tel quel (ouhouh ! le pas gentil), mis j'ai vu que ce code, vu ce que j'utilsais, pouvais répondre à ceertaines questions de débutants. Ainsi je vous fourni un code completement commenté.
CheckBotMain.pb

Code : Tout sélectionner

;- Défini les variables globales.
Global crack.l, warez.l, gamez.l, p2p.l, sexe.l, ignored.l, LIgnore.l, nbdirectories.l, Tocheck
;- Créé le tableau pour les fichiers à ignorer.
Dim ToIgnore.s(100)
;- Créé la structure pour les fichiers sensibles.
Structure Files
  file.s
  directory.s
  lfcrack.l
  lfwarez.l
  lfgamez.l
  lfp2p.l
  lfsexe.l
EndStructure
;- Créé la liste chaînée permet d'enregistrer les fichiers.
NewList Infected.Files()
;- Compte le nombre de dossiers à scanner. 
If ReadFile(1, "directories.conf")
  ; Part à 1 car il y a déjà avec le readstring de while.
  nbdirectories = 1
  ; Boucle de lecture du fichier
  While ReadString()
    ; ligne$ est la ligne courante.
    ligne$ = ReadString()
    ; Si elle ne commence pas par # (commentaire)
    If Left(ligne$, 1) <> "#"
      ; Incrémentation
      nbdirectories = nbdirectories + 1
    EndIf
  Wend
  ; Fermeture du fichier
  CloseFile(1)
EndIf
;- Inclue le fichier contenant toutes les fonctions et constantes.
IncludeFile "CheckBotInclude.pb"
;- Ouvre la fenêtre principale
Open_Window_0()
;- Boucle principale
Repeat
  ; Attend un évenement
  Event = WaitWindowEvent()
  ; Si cet évenement vient d'un gadget
  If Event = #PB_EventGadget
    ; Cherche l'ID du gadget
    GadgetID = EventGadgetID()
    ; Si c'est le bouton vérifier
    If GadgetID = #Button_1
      ; Lancement d'un thread pour vérifier les fichiers/dossiers.
      CreateThread(@main(), 0)
    ; Si c'est le bouton quitter
    ElseIf GadgetID = #Button_2
      ; Quitte la boucle
      quit = 1
    EndIf
  EndIf
; Fin de la boucle
Until Event = #PB_EventCloseWindow Or quit = 1
;- Quitte le programme
End

CheckBotInclude.pb

Code : Tout sélectionner

;- Déclaration des constantes pour les fenêtres.
Enumeration
  #Window_0
  #Window_1
EndEnumeration
;- Déclaration des constantes pour les gadgets.
Enumeration
  #ProgressBar_0
  #Text_0
  #Text_1
  #Listview_0
  #Button_1
  #Button_2
  #Intro
  #Fichier
  #Demande
  #FDelete
  #Clear
  #Rien
EndEnumeration

Procedure FindFile(file$) ; Cherche un fichier dans la liste des fichiers à ignorer.

  ; Boucle de 0 à 99 (taille maximale du tableau).
  For i = 0 To 99
    ; Retourne le nom de fichier contenu dans le tableau à l'adresse i. 
    Lfile$ = ToIgnore(i)
    ; Si ce fichier est le fichier en cours.
    If Lfile$ = file$
      ; la prococédure retourne vrai (true).
      ProcedureReturn #TRUE
      ; Et quitte la boucle.
      Break     
    EndIf 
  Next i
  
EndProcedure

Procedure WriteLog(text$, mode) ; Écrit le fichier log.

  ; Si le mode est 2
  If mode = 2
    ; Ajout de l'information dans la liste.
    AddGadgetItem(#Listview_0, -1, text$)
  EndIf
  ; S'il arrive à ouvrir/créer le fichier.
  If OpenFile(0, "results.log")
    ; Place le pointeur en fin de fichier.
    FileSeek(Lof())
    ; Et écrit le texte demandé.
    WriteStringN(text$)
    ; Puis ferme le fichier
    CloseFile(0)
  EndIf

EndProcedure

Procedure ExamineFile(file$) ; Scanne le fichier à la recherche de mots 'interdits'

  ; S'il arrive à ouvrir le fichier en lecture.
  If ReadFile(2, file$)
    ; Mise en place de variables.
    delay = 1
    vide = 0
    notclean = 0
    fcrack.l = 0
    fwarez.l = 0
    fgamez.l = 0
    fp2p.l = 0
    fsexe.l = 0
    ; Boucle de lecture.
    Repeat
      ; Lit la ligne en cours.
      ligne$ = ReadString()
      ; La met en miniscules.
      ligne$ = LCase(ligne$)
      ; S'il trouve le mot 'crack'.
      If FindString(ligne$, "crack", 0)
        ; Incrémente la variable globale crack.
        crack = crack + 1
        ; Incrémente la variable fcrack.
        fcrack = fcrack + 1
        ; Et informe de l'existance de ce mot.
        WriteLog("Texte illégal dans "+file$, 2)
        ; Met la variable notclean à 1.
        notclean = 1
      EndIf
      ; S'il trouve le mot 'warez'.
      If FindString(ligne$, "warez", 0)
        ; Incrémente la variable globale warez.
        warez = warez + 1
        ; Incrémente la variable fwarez.
        fwarez = fwarez + 1
        ; Et informe de l'existance de ce mot.
        WriteLog("Texte illégal dans "+file$, 2)
        ; Met la variable notclean à 1.
        notclean = 1
      EndIf
      ; S'il trouve le mot 'gamez'.
      If FindString(ligne$, "gamez", 0)
        ; Incrémente la variable globale gamez.
        gamez = gamez + 1
        ; Incrémente la variable fgamez.
        fgamez = fgamez + 1
        ; Et informe de l'existance de ce mot.
        WriteLog("Texte illégal dans "+file$, 2)
        ; Met la variable notclean à 1.
        notclean = 1
      EndIf
      ; S'il trouve le mot 'p2p'.
      If FindString(ligne$, "p2p", 0)
        ; Incrémente la variable globale p2p.
        p2p = p2p + 1
        ; Incrémente la variable fp2p.
        fp2p = fp2p + 1
        ; Et informe de l'existance de ce mot.
        WriteLog("Texte illégal dans "+file$, 2)
        ; Met la variable notclean à 1.
        notclean = 1
      EndIf
      ; S'il trouve le mot 'sexe'.
      If FindString(ligne$, "sexe", 0)
        ; Incrémente la variable globale sexe.
        sexe = sexe + 1
        ; Incrémente la variable fsexe.
        fsexe = fsexe + 1
        ; Et informe de l'existance de ce mot.
        WriteLog("Texte illégal dans "+file$, 2)
        ; Met la variable notclean à 1.
        notclean = 1
      EndIf
      ; Supprime tous les espaces au début et à la fin de la chaîne, si la chaîne devient nulle.
      If Trim(ligne$) = ""
        ; Incrémente la variable vide.
        vide = vide + 1
      EndIf
      ; Si delay (= 1)
      If delay
        ; Pause de 1 milliseconde.
        Delay(1)
        ; Mise à zéro de delay.
        delay = 0
      EndIf
    ; Fin de la boucle : avoir atteint la fin du fichier ou le nombre de lignes vides (10000).
    Until Eof(2) Or vide = 10000
    ; Si notclean égale 1, le fichier n'est pas propre, il contient des mots 'interdits'.
    If notclean = 1
      ; Enregistrement de ce fichier dans la liste.
      AddElement(Infected())
      ; Met son nom.
      Infected()\file = GetFilePart(file$)
      ; Met son chemin.
      Infected()\directory = GetPathPart(file$)
      ; Met le nombre de mots interdits trouvés (non utilsé).
      Infected()\lfcrack = fcrack
      Infected()\lfwarez = fwarez
      Infected()\lfgamez = fgamez
      Infected()\lfp2p = fp2p
      Infected()\lfsexe = fsexe
      ; Incrémente la variable globale Tocheck.
      Tocheck = Tocheck + 1
    EndIf
    ; Ferme le fichier.
    CloseFile(2)
  ; S'il ne peut pas lire le fichier.
  Else
    ; En informe l'utilisateur.
    WriteLog("Impossible de lire "+NextD$+DEN$, 2)
  EndIf
  
EndProcedure

Procedure ClearFile(file$) ; Nettoie le fichier.

  ; Renome le fichier en fichier *.bak.
  If RenameFile(file$, file$+".bak")
    ; Ouvre le fichier renommé et créé un fichier ayant le nom du précédent.
    If ReadFile(2, file$+".bak") And CreateFile(3, file$)
      ; Mise en place de variables.
      vide = 0
      delay = 1
      ; Boucle de lecture, remplacement, écriture.
      Repeat
        ; Utilise le fichier deux (le renommé).
        UseFile(2)
        ; Lit la ligne en cours.
        ligne$ = ReadString()
        ; Remplace tous les mots interdits par 'rien'
        ligne$ = ReplaceString(ligne$, "crack", "")
        ligne$ = ReplaceString(ligne$, "warez", "")
        ligne$ = ReplaceString(ligne$, "gamez", "")
        ligne$ = ReplaceString(ligne$, "p2p", "")
        ligne$ = ReplaceString(ligne$, "sexe", "")
        ; Change de fichier et prend le trois (le nouveau créé)
        UseFile(3)
        ; Et écris la chaîne 'pure'.
        WriteStringN(ligne$)
        ; Supprime tous les espaces au début et à la fin de la chaîne, si la chaîne devient nulle.
        If Trim(ligne$) = ""
          ; Incrémente la variable vide.
          vide = vide + 1
        EndIf
        ; Si delay (= 1)
        If delay
          ; Pause de 1 milliseconde.
          Delay(1)
          ; Mise à zéro de delay.
          delay = 0
        EndIf
      ; Fin de la boucle : avoir atteint la fin du fichier ou le nombre de lignes vides (10000).
      Until Eof(2) Or vide = 10000
      ; Ferme les deux fichiers.
      CloseFile(2)
      CloseFile(3)
      ; Supprime le fichier *.bak.
      DeleteFile(file$+".bak")
      ; Informe que le nettoyage a réussi.
      WriteLog("Fichier "+file$+" nettoyé avec succès !", 2)
    ; S'il ne peut pas créer un lire un fichier, informe.
    Else
      MessageRequester("Erreur", "Impossible de nettoyer le fichier !", #MB_ICONERROR)
    EndIf
  ; S'il ne peut pas renommer, informe.
  Else
    MessageRequester("Erreur", "Impossible de nettoyer le fichier !", #MB_ICONERROR)
  EndIf

EndProcedure

Procedure ExamineFDirectory(nbdirectory, directory$, type) ; Examine les répertoires.
  
  ; S'il l'examen a réussi.
  If ExamineDirectory(nbdirectory, directory$, "*.*")
    ; Cherche la prochaine entrée.
    NDE = NextDirectoryEntry()
    ; Tant qu'elle n'est pas nulle (inexistante).
    While NDE <> 0
      ; Si elle vaut un, c'est un fichier.
      If NDE = 1
        ; Cherche le nom du fichier.
        DEN$ = DirectoryEntryName()
        ; Cherche si le fichier est dans la liste des fichiers à ignorer.
        If FindFile(DEN$)
          ; Si oui, incrémente la variable globale ignored.
          ignored = ignored+1
        Else
          ; Sinon, ajoute le fichier qui va être scanné dans la liste.
          AddGadgetItem(#Listview_0, -1, directory$+DEN$)
          ; Et l'affiche sous la barre de progression.
          SetGadgetText(#Text_1, directory$+DEN$)
          ; Puis examine le fichier.
          ExamineFile(directory$+DEN$)
        EndIf
      ; Si l'entrée vaut deux, c'est un répertoire.
      ElseIf NDE = 2
        ; Cherche le nom du répertoire.
        DEN$ = DirectoryEntryName()
        ; S'il ne vaut pas les points de DOS/UNIX.
        If DEN$ <> "." And DEN$ <> ".."
          ; Si le répertoire ne termine pas par un contre slash.
          If Right(DEN$, 1) <> "\"
            ; Ajout de ce dernier.
            DEN$ = DEN$ + "\"
          EndIf
          ; Ajoute le dossier qui va être examiné dans la liste.
          AddGadgetItem(#Listview_0, -1, directory$+DEN$)
          ; Et l'affiche sous la barre de progression.
          SetGadgetText(#Text_1, directory$+DEN$)
          ; Puis examine ce répertoire (en incrementant la variable des répertoires, afin de pouvoir retourner au précédent)
          ExamineFDirectory(nbdirectory+1, directory$+DEN$, 2)
        EndIf
      EndIf
      ; Utilise le répertoire précédent.
      UseDirectory(nbdirectory)
      ; Cherche l'entrée suivante.
      NDE = NextDirectoryEntry()
      ; Attend une milliseconde.
      Delay(1)
    Wend
    ; Si le type de répertoire est 1 (répertoire et non sous-répertoire).
    If type = 1
      ; Informe du succès de l'opération.
      WriteLog("Répertoire examiné avec succés", 2)
      If crack = 0 And warez = 0 And gamez = 0 And p2p = 0 And sexe = 0
        ; Si rien d'illégal n'a été trouvé, informe.
        WriteLog("Rien d'ill"+Chr(130)+"gal n'a "+Chr(130)+"t"+Chr(130)+" trouv"+Chr(130)+" !", 2)
      Else
        ; Sinon, informe de ce qui a été trouvé.
        WriteLog("crack = "+Str(crack), 2)
        WriteLog("warez = "+Str(warez), 2)
        WriteLog("gamez = "+Str(gamez), 2)
        WriteLog("p2p = "+Str(p2p), 2)
        WriteLog("sexe = "+Str(sexe), 2)
      EndIf
      ; Si le nombre de fichiers ignorés est différent de zéro.
      If ignored <> 0
        ; Informe du nombre de fichiers ignorés.
        WriteLog(Str(ignored)+" fichier(s) ignoré(s) !", 2)
      EndIf
    EndIf
  EndIf

EndProcedure

Procedure Open_Window_1() ; Créé la fenêtre de demande d'execution pour les fichiers 'sensibles'.
  If OpenWindow(#Window_1, 235, 104, 230, 109,  #PB_Window_TitleBar | #PB_Window_WindowCentered, "Que faire ?")
    If CreateGadgetList(WindowID())
      TextGadget(#Intro, 10, 10, 210, 20, "Des élements illégaux ont été trouvés dans :")
      TextGadget(#Fichier, 10, 30, 210, 20, "")
      TextGadget(#Demande, 10, 60, 230, 20, "Que désirez vous faire ?")
      ButtonGadget(#FDelete, 10, 80, 60, 20, "Supprimer")
      ButtonGadget(#Clear, 80, 80, 60, 20, "Nettoyer")
      ButtonGadget(#Rien, 160, 80, 60, 20, "Rien", #PB_Button_Default)
      
    EndIf
  EndIf
EndProcedure

Procedure main() ; le coeur du programme.
  
  ; Désactive le bouton vérifier.
  DisableGadget(#Button_1, 1)
  ; Ouvre la liste de fichier à ignorer.
  If ReadFile(0, "ignore.list")
    ; L'affiche.
    SetGadgetText(#Text_0, "Lecture de la liste des fichiers à ignorer")
    ; Et l'ajoute à la liste.
    AddGadgetItem(#Listview_0, -1, "Lecture de la liste des fichiers à ignorer")
    ; Boucle de lecture.
    Repeat
      ; Lit la ligne en cours.
      FToIgnore$ = ReadString()
      ; Et l'ajoute à la liste des fichiers à ignorer.
      ToIgnore(LIgnore) = FToIgnore$
      ; Incrémente la variable globale LIgnore
      LIgnore = LIgnore + 1
    ; Ce, jusqu'à la prochaine ligne vide.
    Until FToIgnore$ = ""
    ; Fermeture du fichier.
    CloseFile(0)
    ; Avancement de la barre de progression.
    SetGadgetState(#ProgressBar_0, 1)
  EndIf
  ; Lit de le fichier contenant les répertoires.
  If ReadFile(1, "directories.conf")
    ; Et commence la vérification.
    SetGadgetText(#Text_0, "Vérification en cours...")
    ; Lit la ligne en cours.
    NextD$ = ReadString()
    ; Met la variable i en place.
    i = 2
    ; Pendant qu'il y aura des répertoire à lire.
    While NextD$
      ; Si le répertoire ne commence pas par # (répertoire).
      If Left(NextD$, 1) <> "#"
        ; Si le répertoire ne termine pas par un contre slash.
        If Right(NextD$, 1) <> "\"
          ; Ajout de ce dernier.
          NextD$ = NextD$ + "\"
        EndIf
        ; Informe du répertoire en cours d'examin.
        WriteLog(NextD$, 2)
        ; Et avance.
        SetGadgetState(#ProgressBar_0, i)
        ; Examine le répertoire.
        ExamineFDirectory(3, NextD$, 1)
      EndIf
      ; Remise à zéro de varaibles globales.
      crack = 0
      warez = 0
      gamez = 0
      p2p = 0
      sexe = 0
      ignored = 0
      ; Change de fichier.
      UseFile(1)
      ; Et lit le répertoire suivant.
      NextD$ = ReadString()
      ; Pause de 1 milliseconde.
      Delay(1)
      ; Incrémente i
      i = i + 1
    Wend
    ; Si la variable globale Tocheck est supérieure à zéro.
    If Tocheck > 0
      ; Boucle de 1 à Tocheck.
      For k = 1 To Tocheck
        ; Affiche l'opération en cours.
        SetGadgetText(#Text_0, "Nettoyage et suppression des fichiers...")
        ; Supprime le texte des fichiers.
        SetGadgetText(#Text_1, "")
        ; Remet la liste des fichier 'sensibles' au début.
        ResetList(Infected())
        ; Ouvre la fenêtre 'd'execution'
        Open_Window_1()
        ; Prend l'entrée suivante dans la liste.
        NextElement(Infected())
        ; Et l'affiche dans la fenêtre.
        SetGadgetText(#Fichier, Infected()\file)
        ; Mise à zéro de suite.
        Suite = 0
        ; Boucle pour la fenêtre.
        Repeat 
          ; Attend un évenement.
          Event = WaitWindowEvent()
          ; S'il vient d'un gagdet.
          If Event = #PB_EventGadget
            ; Cherche l'ID du gadget.
            GadgetID = EventGadgetID()
            ; Si le gadget est le bouton 'supprimer'.
            If GadgetID = #FDelete
              ; Suppression du fichier sur le disque.
              DeleteFile(Infected()\directory+Infected()\file)
              ; Information.
              WriteLog("Fichier "+file$+" supprimé avec succès !", 2)
              ; Mise à 1 de suite.
              Suite = 1
            ; Si c'est le bouton 'nettoyer'.
            ElseIf GadgetID = #Clear
              ; Nettoie le fichier.
              ClearFile(Infected()\directory+Infected()\file)
              ; Mise à 1 de suite.
              Suite = 1
            ; Si c'est le bouton 'rien'.
            ElseIf GadgetID = #Rien
              ; Mise à 1 de suite.
              Suite = 1
            EndIf
          EndIf
        ; Fin de la boucle si Suite égale 1
        Until Suite = 1
        ; Supprime le fichier en cours de la liste.
        DeleteElement(Infected())
      Next k
      ; Mise à zéro de Tocheck.
      Tocheck = 0
    EndIf
    ; Réactive le gadget.
    DisableGadget(#Button_1, 0)
    ; Enlève le texte des zone de texte.
    SetGadgetText(#Text_0, "")
    SetGadgetText(#Text_1, "")
    ; Remet la barre de progression à zéro.
    SetGadgetState(#ProgressBar_0, 0)
  ; Sinon, informe de la non lecture.
  Else
    AddGadgetItem(#Listview_0, -1, "Impossible de lire le fichier de configuration !")
  EndIf

EndProcedure

Procedure Open_Window_0() ; Ouvre la fenêtre principale

  If OpenWindow(#Window_0, 297, 133, 350, 489,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "Vérificateur de fichiers")
    If CreateGadgetList(WindowID())
      ProgressBarGadget(#ProgressBar_0, 20, 30, 310, 30, 0, nbdirectories+1)
      TextGadget(#Text_0, 20, 10, 310, 20, "")
      TextGadget(#Text_1, 20, 60, 310, 20, "")
      ListViewGadget(#Listview_0, 20, 80, 310, 370)
      ButtonGadget(#Button_1, 20, 460, 150, 20, "Vérifier")
      ButtonGadget(#Button_2, 180, 460, 150, 20, "Quitter")
      
    EndIf
  EndIf
  
EndProcedure

Voila, le programme est encore assez instable, il ne supporte pas certaines choses mais je vais essayer de le completer pour montrer plus de choses !

ou la la !!!

en quoi les mots "crack", "warez", "p2p", ""sexe"
sont illegale ??

si une personne fait un reportage sur le crack substitu de la cocaine ?
le warez n'a jamais ete illegale , a l'origine il est fait pour les gens qui veulent essayer un logiciel specialement distribué en warez, je t'accorde que cela a ete détourné !

le p2p n'a absolument rien d'illegale !!!! , le contenu est parfois illegale
mais le system p2p est parfaitement legale !! et heureusement !!
l'industrie du disque qui a enregistré de tres gros benefice voudrai faire croire a tous qu'il sont bientot a la rue
1-il sont a l'origine d'une taxe sur toud les produit a "memoire" (cd,disque dur ect..)
2- non content de nous pomper de l'argent sur l'achat d'un graveur
et d'une boite de CD , il fabrique a present des pseudo CD qui ne corresponde pas au critere ennoncé par l'inventeur (Philips)
3- a grand renfort de Media abrutis il veulent faire fermer les p2p libre en voulant les rendres illegale, pour creer le leur, qui lui sera payant (encore!) et empechera la libre expression .....
heureusement des gens bien intentionnés veillent et c'est pas demain la veille, qu'il empecheront le p2p ,qui n'est pas illegale !!!

4 si le sexe est illegale , alors c'est la fin de la race humaine !!
ce serai peut etre pas si mal !! , les autres animaux nous remercierai peut etre d'avoir voté une loi dans ce sens !!!

Bref et pour finir je citerai jean yanne qui disait "il est interdit d'interdire"
et rappel moi de ne jamais te prendre comme hebergeur !!
autant allez tout de suite se faire heberger chez les gendarmes
qui pour le coup seront surement plus acceuillant !!!

autant allez tout de suite se faire heberger chez les gendarmes
qui pour le coup seront surement plus acceuillant !!!

Pis quand tu leur demande de t'héberger et que tu es un peu violent, il t'offre une chambre

ben oui c'est l'avantage !!

Et puis des fois, t'as même droit à un copain!

tu peux venir ! ,y a pas de problemes !!

quand y a de la place pour un ......

ps: mais c'est toi qui fait la fille !

ooooups : ça dérape la !!

Heu..eu..eu...eu, désolé mais je crois que l'on a usurpé mon identité, c'était pas moi avant, je compte pas en resté là, non mais!

T'as vu, au fond de la cellule, y a un gros type qui te regarde bizarrement, tu ferais mieux de dormir que d'un oeil cette nuit, parce qu'à mon avis si j'entends du bruit cette nuit, ça ne sera pas une mélodie de ta guitare!

Sur ce, bonne nuit, mais pas toi Dobro, garde l'oeil!

STOP !Je déteste ce genre de remarques Dobro ! Sache que les hébergeurs sont maintenant très limités. Si tu ne parle pas du gouvernement tu termine en tôle... Je dois onc surveiller un maximum, oui le sexe n'est pas illégal mais dans certains contexte si. Le p2p en soit n'a rien d'illégal mais est utilsé à des fins illégales. Et j'espère ne jamais avoir a t'heberger.
Et puisque tout ca vous dérange, je remballe mon code et je me barre. Parcequ'il est de choses que je ne supporte pas !
1 - Les mots peuvent être remplacés.
2 - Je ne vous demande pas de dire ce que vous pensez des mots interdits mais du code.
3 - Heureusement Dobro, que tu ne connais pas tous les problème d'un hébergeur. En de bon entendeur, salut !

furax le heis !!

bah si controle il y a , je prefere ne pas le savoir !!

ça me fait fremir !!!

enfin ! c'est pas l'etat qui te pousse a faire du zele !

avec le nombre d'hebergeur qui existe ! ..

bon alors tu fais la gueule ??

on peut plus rien te dire ?

tu veux un OS ?

alors moi je dit quelque chose et toi tu "punis" tout le monde ?

pas gentil le Heis !!

allez !.......... remet le ton code !

tu veux un OS ?

Les paroles c'est bien mais le résultat c'est pour quand ???

Heis : Faut pas t'emporter commeça, tu as eu l'avis de dobro mais tu n'as pas laissé aux autres letemps de voir ton code

Moi, je suis un peu d'accord avec Heis.

Il ne faut quand même pas oublier que l'état à décidé de rendre l'hébergeur responsable des sites hébergés sur ses serveurs!.
Si la loi n'a pas encore été votée, ça ne saurait tarder.
Si l'hébergeur est une grosse boite, elle a certainement de quoi se défendre, mais les petits hébergeurs privés, qui font ça plus pour le fun que pour le fric, (la plupart sont gratuits), en cas de pépin, ils risquent d'y laisser des plumes.

A mon avis,c'est sûr que l'analyse des mots clés pour sélectionner les sites web n'est peut-être pas la meilleure solution, mais chaque hébergeur privé est bien obligé de se débrouiiler par lui-même pour ne pas prendre trop de risque.

Par exemple, les système des mots-clé peut être valable pour signaler à l'hébergeur qu'un site doit être contrôlé, afin de vérifier qu'il n'est pas illégal.

Chris

@Chris, la loi a été votée, et si je dois payer les 75000€ je suis dans une merde complète ! Ceci est mon seul moyen de faire quelque chose !

Chris a écrit :A mon avis,c'est sûr que l'analyse des mots clés pour sélectionner les sites web n'est peut-être pas la meilleure solution, mais chaque hébergeur privé est bien obligé de se débrouiiler par lui-même pour ne pas prendre trop de risque.

Je sais, je suis en relation avec un autre hébergeur, qui lui m'a conseillé de rajouter une liste 'noire' de tous les fichier illégaux connus. Donc, je verrais.

Chris a écrit :Par exemple, les système des mots-clé peut être valable pour signaler à l'hébergeur qu'un site doit être contrôlé, afin de vérifier qu'il n'est pas illégal.

Actuellement, c'est à cela que ça me sert, je vérifie après.
@Oliv, désolé, mais quand je lis ce genre de choses.... De plus ce n'est pas la première fois que je me prend une remarque dans le genre !
@Dobro, oui c'est l'état ainsi que la communauté de Pure qui me pousse à faire du zèle. L'état à caus des 75000€ et Pure car je pensais que ce code serait bien pour les débutants/moyens.
De plus ceci, n'est qu'une goutte qui a fait déborder un vase énorme. Sur lequel je ne vais pas m'étendre car sinon, les plumes vont voler et je ne vais pas vrauiment dire des choses agréables (et pourtant si justes). La conclusion est juste : avec certain 'bouts' de votre comportement actuels (programmeurs/programmeuses), vous n'encouragez pas à la programmation pour les autres. Voila. Quand au code, puisque vous le demandez c'est que certains le juge utile, je le remettrais donc (ce soir ou demain, le temps me manque... :'().

Heis, tu as raison de faire quelque chose car si un jour tu as un problème tu pourras justifier d'un certains nombre de choses.

Cette loi sent comme quelque chose qui est là pour décourager les petits hébergeurs (faut-il y voir le fait de priviligier les gros hébergeurs qui ont les moyens ?)

D'ailleurs, ce forum pourrais aussi t'aider par l'intermédiares de codeurs qui auraient des idées et pourquoi pas du code pour limiter l'hébergement non désiré.

Et oui Denis, c'est un peu ça. Comme j'ai regardé le compte rendu de CC, j'ai vu qu'ils n'étaient pas entierement d'accord...

Ce qui fait que le juge en cas de blème avec l'hebergeur n'est pas obligé de tout de suite le condanner, mais peu analyser et refuser la plainte (de qui quelle soit !). or justement, comme le dit Denis, en faisant ca, j'essaie de prouver ma bonne foi.

Denis a écrit :Cette loi sent comme quelque chose qui est là pour décourager les petits hébergeurs (faut-il y voir le fait de priviligier les gros hébergeurs qui ont les moyens ?)

Et la Denis, tu tape pile au bon endroit ! On ne rapporte pas d'argent, on est suceptible de d'heberger des choses illégales, on ouvre on concurrence non référencée, enfin bref, one st une menace : il faut nous éliminer !

Denis a écrit :D'ailleurs, ce forum pourrais aussi t'aider par l'intermédiares de codeurs qui auraient des idées et pourquoi pas du code pour limiter l'hébergement non désiré.

Ah ça toute idée (code à l'appui ou non) pour m'empecher d'avoir de ennuis (de façon légale) est la bienvenue. Et la limitation, elle est en cours, personne ne peut avoir d'hébergement sans mon accord et sans que je connaisse bien la personne.

PureBasic

Anti-illégalité. -Post inutile.

Anti-illégalité. -Post inutile.