pure encrypteur txt

[venom]

bonsoir tout le monde.

voila j'ai programmer un logiciel qui consiste a, importer et exporter des fichiers textes. Mais surtout, il permet de crypter et decrypter ces textes.

voyez par vous meme ici

j'attend vos commentaire.


@++

[AWEAR]

Je ne sais pas quel algorithme tu utilises, mais j'ai comme l'impression qu'il ne crypte que les lettres et pas les autres caractères ($ ( , = ! etc... ), sinon pour l'ouverture de fichier je pense qu'il serait bien de mettre une option "tous les types de fichiers".
Ah oui aussi, la fenêtre à la fin qui s'ouvre "Programmer par Venom" est à mon avis un poil trop longue à se fermer , et puis y a une faute d'orthographe, il faut mettre Programmé par Venom, ça fait quand même mieux

[venom]

ok merci AWEAR .

pour la signature c'est regler .

pour mon algorithme tu as raison sa ne crypte que les lettres. mais le probleme c'est que c'est pas moi qui a ecrit cette procedure. faudrais que je voie pour modifier ça voici le code si sa peut servir a quelque chose

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #String_NomS
  #Text_0
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
EndEnumeration

Procedure opentxt() 
  fichier$ = OpenFileRequester("ouvrir un texte", "", "fichier texte|*.txt", 0) 
  If ReadFile(0,fichier$) 
    Texte.s=Space(FileSize(fichier$)) 
    ReadData(@Texte,FileSize(fichier$)) 
    SetGadgetText(#String_NomS, texte) 
    CloseFile(0) 
  EndIf 
EndProcedure 

Procedure saveas() 
  fichier$ = SaveFileRequester("Enregistrer sous", "document texte","texte|*.txt", 0) 
  If CreateFile(0,fichier$+".txt") 
    WriteString(GetGadgetText(#String_NomS)) 
    CloseFile(0) 
  EndIf 
EndProcedure

Procedure crypter()
von.w = 97
        zu.w  = 127 
         String$ = GetGadgetText(CheminFichier$)              
          For a = 0 To 25 
          If a = 18  
            a = a+2  
          EndIf 
       von$ = Chr(von.w+a) 
        zu$ = Chr(zu.w+a) 
         String$ = ReplaceString (String$,von$,zu$ ) 
          Next a 
       SetGadgetText(texte$,String$) 
       SetClipboardText(String$)
EndProcedure

Procedure decrypter()
von.w = 127 
        zu.w  = 97 
         String$ = GetGadgetText(CheminFichier$)              
          For a = 0 To 25
          If a = 18 
             a = a+2 
          EndIf 
       von$ = Chr(von.w+a) 
        zu$ = Chr(zu.w+a) 
         String$ = ReplaceString (String$,von$,zu$ ) 
          Next a 
       SetGadgetText(CheminFichier$,String$) 
       SetClipboardText(String$)
EndProcedure

If OpenWindow(#Window_0, 0, 0, 800, 600,  #PB_Window_WindowCentered|#PB_Window_MinimizeGadget , "pure encrypteur txt")
    menu= CreateMenu(0, WindowID())
    If menu
    MenuTitle("Fichier")
      MenuItem( #Button_0, "ouvrir un texte ...")
      MenuItem( #Button_1, "enregistrer le texte sous ...")

    MenuTitle("Option")
      MenuItem( #Button_2, "crypter le texte")
      MenuItem( #Button_3, "decrypter le texte")
    
    MenuTitle("?")
      MenuItem( #Button_4, "a propose de")
    EndIf
  HideMenu(0,1)
  InitBarreMenu( WindowID(0), menu, RGB(0,255,255), RGB(255,255,0))
  LoadFont (0, "lucida calligraphy", 12 ,#PB_Font_Italic)
  OpenMenu(0)

 If CreateGadgetList(WindowID())
     StringGadget(#String_NomS,5, 37,790,555,texte$, #PB_String_MultiLine|#WS_VSCROLL|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT)
 EndIf
  
  Repeat 
   event = WaitWindowEvent() 
    If event = #PB_EventMenu 
     Select EventMenuID()
     
      Case #Button_0
       opentxt()
            
      Case #Button_1
       saveas()
       
      Case #Button_2
        crypter()
      
      Case #Button_3
       decrypter()

      Case #Button_4
       MessageRequester("programme pure encrypteur","pure encrypteur txt a etait cree par venom grace au merveilleux langage de programmation qui est, PUREBASIC ( http:// www.purebasic.com ) en remerciant ces createurs, et les personnes du Forum français ( http://Forum.purebasic.fr )",#PB_MessageRequester_Ok)

     EndSelect
    EndIf
  Until event = #PB_EventCloseWindow
 EndIf

.

voila


@++