Encriptage

[le_pro_du_pure]

Je voudrai faire un crypreur de mot de passe.
J'arrive pas à comprendre comment on décripte le mdp une fois crypté
Dans l'aide y a rien ou j'ai pas vu
Si vous savez comment faire tte suggest° est bienvenue

[jblaise.cs]

Hmm m' ecoutes pas c' est ce que je pense mais je suis qu' un amateur...
Si tu encode quelque chose avec pure basic, tous ceux qui ont pure basic pourait decoder ton encriptage si il y avait une commande pour decripter

PS : atends que quelqu un d autre te reponde ^^

[julien]

tu fais ta propre algo de cryptage en jouant sur les caractère avec un clef

[nico]

Si tu fait référence à ça:

StringGadget(0,8,170,306,20,"Password",#PB_String_Password)

le mot de passe n'est pas crypté, tu utilises Getgadget(#gadget) pour retrouver la chaine de caractère rentrée comme pour tout autres gadgets.

[le_pro_du_pure]

c'est pour crypter ds un fichier

[le_pro_du_pure]

idée fulgurente et question
comment faire son propre algo
ah au fait je crois qu'on dit un algorythme

[julien]

idée fulgurente et question
comment faire son propre algo
ah au fait je crois qu'on dit un algorythme

T'as qu'a essayer (un peu) par tes propres moyens avant de venir poster, et que t'attende que l'on te file un code servi sur un plateau !!!!!!

Au fait je crois que c'est En cryptage et non Encriptage pour le titre du message

[Lukky]

Ce qu'a dis jblaise.cs est logique.

En matière de codage de texte la seule solution fiable est bien d'inventer son propre codage.

Pour ça c'est super simple, tu code avec un bout de papier et quand tu as un truc qui marche comme tu veux tu le passe sur info.

Si tu veux juste cacher du texte à la mode neuneu tu peux toujours mélanger les lettres ou un truc comme ça mais bon avec les fréquences des lettre et des syllabes t'as vite fais de te faire casser tout ça.

Mais bon, ça dépend de l'utilisation.

Pour le reste si tu débute en programmation tu devrais commencer par quelque-chose de plus accessible.

JL

[le_pro_du_pure]

je sais même pas ce que c'est qu'1 algo

je crois que c'est En cryptage et non Encriptage pour le titre du message

ptete bien, mais je dirais plutôt cryptage (enfin j'peux me tromper)

[Chris]

Un algorithme, c'est, en gros, une suite d'opérations simples permettant de resoudre un problème.

Et ça s'écrit avec un i, pas avec un y, et c'est, effectivement UN algorithme.

Chris

[julien]

Tu trouveras sur ce lien une application qui permet de crypter/décrypter les fichiers que j'avais fais à temps perdu !
Bon c'est pas fini l'algo est très simple.
Je pense que c'est ce genre d'application que tu veux faire

http://82.64.221.12/Pbexe/Secret.exe (ip dynamique)

[LavaLava]

Voila un exemple de cryptage de mot de passe :

Saisie du mot de passe = "1234"
Clé de cryptage = "1"

Aprés encryptage :
Mot de passe encrypté = "2345" (ajout numérique de la clé à chaque décimale du mot de passe)

Pour décrypter le mot de passe crypter, tu réalise l'inverse de toute les opération effectué pour le cryptage !
La soustraction numérique de la clé à chaque décimale du mot de passe crypté = "1234"

A toi de mixer tout ce qui te passe par la tête comme opération de cryptage...
Multiplication,nombre premier, récursivité,table de translation,décalage,...

[Chris]

Tiens, une autre procédure de cryptage des mots de passe. Elle est pas de moi.

Code : Tout sélectionner

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=993&highlight=
; Author: NicTheQuick : Traducteur : Moi :o)
; Date: 13. May 2003

Procedure.s CaesarChiffre(Entree.s,k,Mode.b) 
  ;k: est la clé qui doit être comprise entre 1 et 255
  
  ;Mode: 
  ; - 0 : Cryptage 
  ; - 1 : Décryptage 
  
  Sortie.s = "" 
  Select Mode 
    Case 0 
      For Position.l=1 To Len(Entree) 
        z$=Mid(Entree,Position,1) 
        var1=Asc(z$)+k 
        If var1>255 
          var1-256 
        EndIf 
        Sortie + Chr(var1) 
      Next 
    Case 1 
      For Position.l=1 To Len(Entree) 
        z$=Mid(Entree,Position,1) 
        var1=Asc(z$)+256-k 
        If var1>255 
          var1-256 
        EndIf 
        Sortie+Chr(var1) 
      Next 
  EndSelect 
  ProcedureReturn Sortie 
EndProcedure 

Text$="Ave Caesar" 
c$=CaesarChiffre(Text$,100,0) 
m$=CaesarChiffre(c$,100,1) 

MessageRequester("Cryptage","Original: "+Text$+Chr(13)+"Crypté: "+c$+Chr(13)+"Décrypté: "+m$,0)

Chris

[nico]

Un des algorithmes les plus connus et aussi l'un des plus puissants est l'AES qui succède à DES et 3DES. Ce code n'est pas breveté, je ne sais pas s'il est légale en France, il peut utiliser une clé de chiffrement de 128 , 192 ou 256 bits.

IL y a des exemples de mise en oeuvre en langage c/c++

Site:

http://csrc.nist.gov/CryptoToolkit/aes/


La page où se trouve les codes:

http://fp.gladman.plus.com/ACE/index.htm

[jblaise.cs]

@ Chris

Tiens, une autre procédure de cryptage des mots de passe. Elle est pas de moi.

C est normale qu elle ne soit pas de toi(;)) j ai trouver une "parade", si moi je peu le faire.........

Code : Tout sélectionner

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=993&highlight= 
; Author: NicTheQuick : Traducteur : Moi :o) 
; Date: 13. May 2003 

Procedure.s CaesarChiffre(Entree.s,k,Mode.b) 
  ;k: est la clé qui doit être comprise entre 1 et 255 
  
  ;Mode: 
  ; - 0 : Cryptage 
  ; - 1 : Décryptage 
  
  Sortie.s = "" 
  Select Mode 
    Case 0 
      For Position.l=1 To Len(Entree) 
        z$=Mid(Entree,Position,1) 
        var1=Asc(z$)+k 
        If var1>255 
          var1-256 
        EndIf 
        Sortie + Chr(var1) 
      Next 
    Case 1 
      For Position.l=1 To Len(Entree) 
        z$=Mid(Entree,Position,1) 
        var1=Asc(z$)+256-k 
        If var1>255 
          var1-256 
        EndIf 
        Sortie+Chr(var1) 
      Next 
  EndSelect 
  ProcedureReturn Sortie 
EndProcedure 

Text$="Ave Ceasar" 
c$=CaesarChiffre(Text$,100,0) 
m$=CaesarChiffre(c$,100,1) 

MessageRequester("Cryptage","Original: "+Text$+Chr(13)+"Crypté: "+c$+Chr(13)+"Décrypté: "+m$,0) 

Allowed$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 " ; Caractere autoriser 
Debug "Valeurs possible : " 
For num = 1 To 255 
cc$ = CaesarChiffre(c$,num,1) 
  If FindString(Allowed$, Left(cc$, 1), 1) <> 0          ;/ 
   If FindString(Allowed$, Mid(cc$, 2, 1), 1) <> 0       ;| 
    If FindString(Allowed$, Mid(cc$, 3, 1), 1) <> 0      ; } Affine la recherche 
     If FindString(Allowed$, Mid(cc$, 4, 1), 1) <> 0     ;| 
      If FindString(Allowed$, Mid(cc$, 5, 1), 1) <> 0    ;\ 
       Debug CaesarChiffre(c$,num,1)+" (Cle : "+Str(Num)+")" 
       Nb=Nb+1
      EndIf 
     EndIf 
    EndIf 
   EndIf 
  EndIf 
Next
Debug "Nombre totale de solution possible : "+Str(Nb)

J'Sui fier de moi !

@ LavaLava
J ai utiliser le debug