Codage par rotation

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Codage par rotation

Joshua74

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

Publicité

Elmoricq

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

SuppotDeSaTante

Aka dje69r

Bonjour

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

Cordialement

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

Joshua74

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

SuppotDeSaTante

Aka dje69r

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 !

Joshua74

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

SuppotDeSaTante

Aka dje69r

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 !

FORUM HardWare.fr

Windows & Software

Logiciels

Codage par rotation

Sujets relatifs
Word 2007 : Validation du codage à l'ouverture	Problème d'utilisation de Rotation Windows 3D et Miniatures dynamique
Problème sous titre chinois !! pb de codage (je crois)	[nvrotate] problème de rotation, mode portrait
Codage de la sortie standard des scripts	probleme de codage en .pdf
Outlook et le codage	backup exec 10 : question a propos de la rotation de bandes
Problème de Streaming via Windows Media / Codage	rotation ACDSEE et Réseau
Plus de sujets relatifs à : Codage par rotation

Page générée en 0.034 secondes