cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 2013
-
29 oct. 2002 à 17:41
Sniper_binaire
Messages postés7Date d'inscriptiondimanche 16 septembre 2007StatutMembreDernière intervention20 mai 2009
-
20 mai 2009 à 20:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Sniper_binaire
Messages postés7Date d'inscriptiondimanche 16 septembre 2007StatutMembreDernière intervention20 mai 2009 20 mai 2009 à 20:19
Si tu veux faire plus strong, fais des recherche sur les masques jetables, actuellement le seul algorithme absolument indéchiffrable
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 19 mai 2005 à 19:24
'Personnellement j'ai créer à partir de cet algo une version plus évoluée (tex02) qui rend le texte crypté incassable, même en connaissant le code source, mais je me la réserve pour un usage personnel.'
Ouais moi j'ai codé un os compatible windows et sans les bugs :) mais je le garde pour moi vois tu ...
PsyCaDi
Messages postés123Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention30 mars 2009 20 mai 2004 à 13:17
Super ça faisait un moment que je cherchais un cryptage simple et efficace. Bon le seul hic c'est les goto. je suis débutant mais erk les goto.
Merci :)
cs_pouldo
Messages postés2Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention22 juin 2006 3 nov. 2003 à 13:37
bin....il y a quand meme un probleme avec cet algo. Dans certains cas, il est impossible de coder un message donné avec une clé donnée. Je m'explique : le cos(cle^5)*10 peut generer des nombres allant de -10 à +10. Si par exemple on essaye de transformer ÿ (code : 255) à un moment ou algo>0, on a une erreur. Signalée par un message, certe, mais bon...
C'est facile de critiquer, ouaiiissssssssss.....tout çaaaaaaaaaaaaa.....ton algooooooooooooo....
lol
moi je trouve que c'est déjà vachement bien. C'est beaucoup plus efficace (faut déjà etre motivé pour essayé de déchiffrer un message codé comme ça) que beaucoup d'autres codes que l'on voit un peu partout, et c'est très simple.
Damien
cs_tex
Messages postés116Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention23 mai 2004 21 déc. 2002 à 20:54
Prière de lire la description. C pas encore un RSA mais c mieux qu'un Vigenère. G rajouté la describ paske g pas l'impression que bcp aient compris comment ça marche (sans vouloir vexer personne). C'est effectivement un algo basé sur le décalage d caractère (com Vigenère ou XOR) mais là il utilise une fonction curviligne non redondante.
@+ tex
cs_Warny
Messages postés473Date d'inscriptionmercredi 7 août 2002StatutMembreDernière intervention10 juin 2015 31 oct. 2002 à 13:27
Pour ceux qui souhaiterai faire de la crypto. Soyez humbles. Les 50 dernières années ont permis de trouver des algorithmes et méthodes de cryptages d'un niveau assez élévé. C'est bien de retrouver les algorithmes de vigénère ou le one-time-keypad, mais informez-vous !!!
Je n'ai pas la prétention de vouloir créer des algorithme, tout ce que peux inscrire sur ce site concernant des cryptage sont des truc simples que vous pourrez trouver dans n'importe quel cours de cryptograhie ou de cryptologie.
Surtout quand on voit la simplicité de code d'algo comme RSA ou DES qui sont infiniment plus sûrs.
cs_PYT
Messages postés4Date d'inscriptionlundi 30 octobre 2000StatutMembreDernière intervention31 octobre 2002 31 oct. 2002 à 02:16
mouarf on trouve d bete de source de nos jour....;pp
j'teu rassure tex c pourri ;)
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 30 oct. 2002 à 20:56
Et pi je pense que les GOTO ... c'est bon qu'à manger.
My way is :
Option Explicit
Private mvarKey As Integer
Enum enOps
Encrypt = 0
Decrypt = 1
End Enum
Private Sub btnCrypter_Click()
If Not IsNumeric(txtCle) Then Exit Sub
Function pCryptage(ByVal sEntree As String, _
ByVal lngCle As Long, _
ByVal Operation As enOps) As String
Dim Entree(255): Dim Sortie(255)
Dim i As Byte: Dim lngAlgo As Long
lngCle = lngCle - 1
If Operation = Encrypt Then
For i = 1 To Len(sEntree)
Entree(i) = Mid(sEntree, i, 1)
lngCle = lngCle + 1
lngAlgo = Cos(lngCle ^ 5) * 10
Sortie(i) = Chr(Asc(Entree(i)) + lngAlgo)
pCryptage = pCryptage + Sortie(i)
Next i
End If
If Operation = Decrypt Then
For i = 1 To Len(sEntree)
Entree(i) = Mid(sEntree, i, 1)
lngCle = lngCle + 1
lngAlgo = Cos(lngCle ^ 5) * 10
Sortie(i) = Chr(Asc(Entree(i)) - lngAlgo)
pCryptage = pCryptage + Sortie(i)
Next i
End If
End Function
Private Sub btnDecrypter_Click()
If txtClaire = "" Then Exit Sub
txtClaire = txtResultat
txtResultat = ""
MsgBox "décrrypter ??", vbOKCancel, "Décryptage"
txtResultat = IIf(vbOK, pCryptage(txtClaire, txtCle, Decrypt), "")
End Sub
Private Sub btnQuitter_Click()
Unload Me
End Sub
'END CODE
@+, vic
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 30 oct. 2002 à 19:58
siouplais.. indenter le source... thanks
vbsourss
Messages postés37Date d'inscriptiondimanche 22 septembre 2002StatutMembreDernière intervention 3 novembre 2002 30 oct. 2002 à 13:31
ooooooooooooops, à la relecture, ç'est un n que ta été trop radin de mettre...
vbsourss
Messages postés37Date d'inscriptiondimanche 22 septembre 2002StatutMembreDernière intervention 3 novembre 2002 29 oct. 2002 à 20:41
acidetoxic=> Tu trouves ça si nul que tu veux même pas mettre un e?
Non, ç'est pas mal cet algo.
acidtoxik
Messages postés28Date d'inscriptiondimanche 12 mai 2002StatutMembreDernière intervention 2 janvier 2008 29 oct. 2002 à 19:57
c pas du tout interessat ton algo !! ca sert a rien de crypter avec cet algo !! tu veu planquer un mdp sur to pc tu fai un [XOR - len(chaine)] ca suffit emplement surtout si le gars a pas le nom du fichier !!! voila ! g pas envie de te noter ca en vaut meme pas la peie ! :-p
cs_tex
Messages postés116Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention23 mai 2004 29 oct. 2002 à 17:47
Excusez-moi, problème technique (impossible d'afficher vbfrance.com, ça ramait trop y a que la moitié qui est passée).
Encore pardon, tex
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 29 oct. 2002 à 17:41
Sans code, sans zip, c'est une version ULTRA-LIGHT !
20 mai 2009 à 20:19
19 mai 2005 à 19:24
Ouais moi j'ai codé un os compatible windows et sans les bugs :) mais je le garde pour moi vois tu ...
20 mai 2004 à 13:17
Merci :)
3 nov. 2003 à 13:37
C'est facile de critiquer, ouaiiissssssssss.....tout çaaaaaaaaaaaaa.....ton algooooooooooooo....
lol
moi je trouve que c'est déjà vachement bien. C'est beaucoup plus efficace (faut déjà etre motivé pour essayé de déchiffrer un message codé comme ça) que beaucoup d'autres codes que l'on voit un peu partout, et c'est très simple.
Damien
21 déc. 2002 à 20:54
@+ tex
31 oct. 2002 à 13:27
Je n'ai pas la prétention de vouloir créer des algorithme, tout ce que peux inscrire sur ce site concernant des cryptage sont des truc simples que vous pourrez trouver dans n'importe quel cours de cryptograhie ou de cryptologie.
Surtout quand on voit la simplicité de code d'algo comme RSA ou DES qui sont infiniment plus sûrs.
31 oct. 2002 à 02:16
j'teu rassure tex c pourri ;)
30 oct. 2002 à 20:56
My way is :
Option Explicit
Private mvarKey As Integer
Enum enOps
Encrypt = 0
Decrypt = 1
End Enum
Private Sub btnCrypter_Click()
If Not IsNumeric(txtCle) Then Exit Sub
mvarKey = CInt(txtCle)
txtResultat = IIf(Abs(mvarKey) > 3600, _
"Clé trop grande", _
pCryptage(txtClaire, txtCle, Encrypt))
End Sub
Function pCryptage(ByVal sEntree As String, _
ByVal lngCle As Long, _
ByVal Operation As enOps) As String
Dim Entree(255): Dim Sortie(255)
Dim i As Byte: Dim lngAlgo As Long
lngCle = lngCle - 1
If Operation = Encrypt Then
For i = 1 To Len(sEntree)
Entree(i) = Mid(sEntree, i, 1)
lngCle = lngCle + 1
lngAlgo = Cos(lngCle ^ 5) * 10
Sortie(i) = Chr(Asc(Entree(i)) + lngAlgo)
pCryptage = pCryptage + Sortie(i)
Next i
End If
If Operation = Decrypt Then
For i = 1 To Len(sEntree)
Entree(i) = Mid(sEntree, i, 1)
lngCle = lngCle + 1
lngAlgo = Cos(lngCle ^ 5) * 10
Sortie(i) = Chr(Asc(Entree(i)) - lngAlgo)
pCryptage = pCryptage + Sortie(i)
Next i
End If
End Function
Private Sub btnDecrypter_Click()
If txtClaire = "" Then Exit Sub
txtClaire = txtResultat
txtResultat = ""
MsgBox "décrrypter ??", vbOKCancel, "Décryptage"
txtResultat = IIf(vbOK, pCryptage(txtClaire, txtCle, Decrypt), "")
End Sub
Private Sub btnQuitter_Click()
Unload Me
End Sub
'END CODE
@+, vic
30 oct. 2002 à 19:58
30 oct. 2002 à 13:31
29 oct. 2002 à 20:41
Non, ç'est pas mal cet algo.
29 oct. 2002 à 19:57
29 oct. 2002 à 17:47
Encore pardon, tex
29 oct. 2002 à 17:41