NOUVEL ALGO DE CRYPTAGE (INTÉRESSANT)

Commentaire de rene38 le 29/10/2002 17:41:14

Sans code, sans zip, c'est une version ULTRA-LIGHT !

Commentaire de acidtoxik le 29/10/2002 19:57:02

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

Commentaire de vbsourss le 30/10/2002 13:31:09

ooooooooooooops, à la relecture, ç'est un n que ta été trop radin de mettre...

Commentaire de VicoLaChips2 le 30/10/2002 20:56:01

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
    
    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

Commentaire de Warny le 31/10/2002 13:27:18

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.

Commentaire de pouldo le 03/11/2003 13:37:33

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

Commentaire de yoman64 le 19/05/2005 19:24:50

'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 ...