Cryptage avec mot de passe

Soyez le premier à donner votre avis sur cette source.

Vue 3 734 fois - Téléchargée 356 fois

Description

ouou le text le plus sécurisé maintenant

Source / Exemple :


'dans le fichier .zip

Conclusion :


merci pour microsoft

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
31
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
8 octobre 2002

Tout d'abord rien ne sert de crypter si l'on ne peut pas décrypter.
Et je pense que vu la façon dont le texte est crypté tu n'arrivera JAMAIS à décrypter le message initial.
Je pense qu'il y a encore un peu (beaucoup) à faire sur ton crypteur (non-décrypteur), comme par exemple changer ta manière de crypter pour pouvoir ensuite décrypter.
Bonne chance !
Messages postés
24
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
3 février 2003

J'ai requarder ta souce et point vue de cryptage

sa marche pas fort

dans text à crypter il affiche seulement ta clé de cryptage inverser

c'é pas du cryptage sa

un genre de cryptage de base untilisé est

l'addition de clé

c'é simple du prend le text et tu lui ajoute ta clé ton pour le décrypter du fais l'opération inverse tu soustrait ta clé

example simple tu as besoin de dexu bouton un crypter un décrypter et tu as ausi besoin d'un textbox nommer Text

TextACrypter = "test de cryptage"
CleCryptage = "a"
TextADeCrypter = "ÕÆÔՁÅƁÄÓÚÑÕÂÈÆ"

voici le code pour crypter
For x = 1 To Len(TextACrypter)
If y = Len(CleCryptage) Then
y = 1
Else
y = y + 1
End If
TextCrypter = Asc(Mid(TextACrypter, x, 1)) + Asc(Mid(CleCryptage, y, 1))
If TextCrypter > 255 Then
TextCrypter = TextCrypter - 255
End If
Text = Text & Chr(TextCrypter)
Next x

et celui pour décryter
For x = 1 To Len(TextADECrypter)
If y = Len(CleCryptage) Then
y = 1
Else
y = y + 1
End If
TextDeCrypter = Asc(Mid(TextADECrypter, x, 1)) - Asc(Mid(CleCryptage, y, 1))
If TextDeCrypter < 0 Then
TextDeCrypter = TextDeCrypter + 255
End If
Text = Text & Chr(TextDeCrypter)
Next x

Si tu comprend pas dit moi le je vais t'expliquer
Messages postés
24
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
3 février 2003

t'é courageux te dire merci a micro$oft

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.