Codage par rotation

Marsh Posté le 24-03-2008 à 16:38:55

Bonjour,

Désolé si je ne suis pas au bon endroit, j'ai cherché mais je ne trouve rien... connaissez vous un petit logiciel qui permet de faire du codage de texte par rotation comme le celebre ROT 13 mais en choisissant l'espacement entre les caracteres (pas forcément 13..)

Citation :

rotation 13. methode de chiffrement tres simple qui consiste a remplacer un caractere par un autre a 13 caracteres de la.
« a » devient « n », par exemple.

Merci...

Reply

Marsh Posté le 24-03-2008 à 16:38:55

Reply

Marsh Posté le 24-03-2008 à 16:45:45

Ce sujet a été déplacé de la catégorie Programmation vers la categorie Windows & Software par Elmoricq

Reply

Marsh Posté le 25-03-2008 à 14:57:30

Bonjour

Sous quel outils tu veux faire ca ? Quels logiciels en entrée et en sortie ?

Cordialement

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 31-03-2008 à 12:54:30

En fait je cherche quelque chose de très simple, c'est pour un défi avec des élèves ; un petit texte (imprimé) à décoder en activité autonome.
Genre "A vaut K", à eux de trouver que le A vaut K avec une image d'avocat.

Donc je cherche quelque chose de pratique surtout pour gagner du temps.

J'ai trouvé une police de caractère "décalée" pour le "A vaut K". J'écris mon texte sous word puis je change la police, c'est une solution, mais peut être existe t'il un logiciel dédié...

Message édité par Joshua74 le 31-03-2008 à 12:54:48

Reply

Marsh Posté le 31-03-2008 à 21:01:55

Bonjour

Si c'est sous Word, et si ton texte ne fait pas 100 pages, passes par une macro qui change tout tes caracteres...

Si tu ne sais pas faire ou ne trouve pas, dis le, je te ferais rapidement une macro

Cordialement

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 01-04-2008 à 23:52:59

Ta proposition m'interesse beaucoup, je n'y connais rien du tout... UN grand merci à toi si tu as un peu de temps devant toi...

Reply

Marsh Posté le 02-04-2008 à 10:23:01

Bonjour

J'ai fait ca vite fait, on doit pouvoir optimiser tout ca, mais normalement ca fonctionne.
Tiens moi au jus, si tu as besoin de commentaire dans le code ou autre, pas de souci

Citation :

Sub TexteCode()

Dim Diff As Integer
Diff = 2 'choix de l'incrémentation des lettres

Selection.WholeStory
NbCar = Selection.Characters.Count
Selection.MoveLeft Unit:=wdCharacter, Count:=1

For x = 1 To NbCar
Car = Selection.Characters(1).Text
AscCar = Asc(Car)

Select Case AscCar

Case 65 To 90
Selection.Delete Unit:=wdCharacter, Count:=1

If AscCar + Diff > 90 Then
AscCar = 64 + Diff
Else
AscCar = AscCar + Diff
End If

TextCar = Chr(AscCar)
Selection.TypeText Text:=TextCar

Case 97 To 122
Selection.Delete Unit:=wdCharacter, Count:=1

If AscCar + Diff > 122 Then
AscCar = 96 + Diff
Else
AscCar = AscCar + Diff
End If
TextCar = Chr(AscCar)
Selection.TypeText Text:=TextCar

End Select

Next x

End Sub

Tu n'as qu'a modifier la valeur Diff, par exemple pour A vaut K, tu mets Diff = 10

Cordialement

Message édité par SuppotDeSaTante le 02-04-2008 à 10:26:23

---------------
Soyez malin, louez entre voisins !

Reply

Codage par rotation

Sujets relatifs:

Leave a Replay