Page 1 sur 2
Encriptage
Publié : lun. 26/avr./2004 18:39
par 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

Publié : lun. 26/avr./2004 18:50
par 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 ^^
Publié : lun. 26/avr./2004 18:55
par julien
tu fais ta propre algo de cryptage en jouant sur les caractère avec un clef
Publié : lun. 26/avr./2004 18:57
par 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.
Publié : lun. 26/avr./2004 18:59
par le_pro_du_pure
c'est pour crypter ds un fichier
Publié : lun. 26/avr./2004 19:21
par le_pro_du_pure
Publié : lun. 26/avr./2004 19:46
par julien
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

Publié : lun. 26/avr./2004 19:57
par 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
Publié : lun. 26/avr./2004 19:59
par 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)
Publié : lun. 26/avr./2004 20:20
par 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

Publié : lun. 26/avr./2004 20:34
par 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)
Publié : lun. 26/avr./2004 20:35
par 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,...
Publié : lun. 26/avr./2004 20:51
par 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

Publié : lun. 26/avr./2004 21:29
par 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
Publié : mar. 27/avr./2004 3:12
par jblaise.cs
@ Chris
Chris a écrit :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
