Crypteur assez simple !

**Konroy** · 07/06/2009, 20h41

Coucou les pros,
Je débute et j'aimerais de l'aide pour faire un petit logiciel de cryptage.
Par exemple a=1 b=2...

bac = 213

Merci pour votre aide

**mick605** · 07/06/2009, 22h27

Salut !

Alors, tu voudrais transformer une chaine de caractere en Integer ?
Ton systeme semble bizarre, par exemple pour Z, cela va faire 26 . Ensuite, ton programme va le déchiffrer, mais il va lire BF car B=2 et F=6.

Il faut que tu revoie la maniere dont tu veux crypter ton texte !

Je vais te donner une technique simple de cryptage :
Par exemple, on transforme BONJOUR en CPOKPVS en prenant la lettre suivante dans l'alphabet. Tu pourrais coder un programme qui fasse ca !

Si je n'ai pas bien compris le systeme de cryptage que tu utilises, dis le moi !

Bonne chance !

**Droïde Système7** · 08/06/2009, 10h09

et bienvenue sur les forums Developpez.com,

[...] Je débute et j'aimerais de l'aide pour faire un petit logiciel de cryptage.
Par exemple a=1 b=2...

Cela me semble illogique, pour cette raison principalement :

Le mot "zizanie" te donnerait quoi ? à méditer...

Personne ne souffle, hein

@+

**popo** · 08/06/2009, 13h17

Moi ce que je ne comprend pas c'est pourquoi tu souhaite mettre en place un outil de cryptage par toi même (surtout qu'un truc comme ça est facilement déchiffrable), alors que tu as des outils GRATUITS qui le font pour toi.

J'en ai vu quelques uns rien que sur ce site !

**mick605** · 08/06/2009, 13h27

Popo > Ca peut etre simplement pour s'entrainer, pour se donner un projet meme si ce n'est pas efficace. Ce n'est pas forcément pour etre utile ! Mes premiers programmes ne servaient a rien !!

**popo** · 08/06/2009, 13h49

OK admettons.

Après il faut savoir si tu compte y mettre seulement des lettres ou si tu veux également y intégrer des chiffres.

Pour les lettres uniquement je peux te proposer un truc pas très beau, pas très propre non plus mais qui fonctionne.
Il s'agit de déclarer une structure avec 2 variables (une pour la lettre nomale et une pour la lettre cryptée) et faire un array de 26 de ces structures ou alors 2 array of string.
Ensuite tu peux facilement aller chercher une lettre et sa lettre cryptée correpondant avec l'indice du tableau

**mick605** · 08/06/2009, 14h10

Meme sans tableau tu peux t'en sortir, et c'est plus simple pour commencer :
Simplement avec un Case de 26 lignes ... (c'est bourrin, je sais) mais ca marche !

et si tu veux integrer des chiffres, il suffit de rajouter des lignes au case (ou a ton tableau) !

Edit : et KonRoy, j'attends tes reponses

!

**NABIL74** · 08/06/2009, 15h13

Envoyé par Konroy

Coucou les pros,
Je débute et j'aimerais de l'aide pour faire un petit logiciel de cryptage.
Par exemple a=1 b=2...

bac = 213

Merci pour votre aide

salut,

voici un exemple qui répond à ton besoin

Function Cryptage_simple(Texte :string):string;
var Longueur, i, val :integer;
Temp :string;
begin
Longueur := length(Texte);

For i := 1 to Longueur do
begin
val := Ord(Texte[i]);

if (val in [65..90]) or (val in [97..122]) Then
begin
if val in [65..90] Then Temp := Temp + IntToStr(val - 64)
else Temp := Temp + IntToStr(26 + (val - 96));
end
Else Temp := Temp + Texte[i];
end;

Result := Temp;
end;

pour l'appeler, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
Cryptage_simple(Edit1.Text);
Edit2.Text:=Cryptage_simple(Edit1.Text);// Edit2 affiche le texte crypté
end;

NB: le "1" correspond à "A", le "2" correspond à "B"...
le "a" correspond à "27", le "b" correspond à "28"...

Bonne chance.

NABIL74

**Konroy** · 08/06/2009, 16h05

Salut, tout le monde. Je sais très bien qu'il y a des crypteur sur le marché mais je veux juste coder quelques petits programme simple

Je ne vois pas pourquoi vous ne comprenez pas ?
a = 1
b = 2
..
z = 26

Merci pour le code source je vais essayé

**Gilbert Geyer** · 08/06/2009, 16h31

Salut,

Autre possibilité simple de cryptage :

Voici un code de Paul THOT créé pour enlever les accents dans une string : si tu permutes ci-après dans la const SansAccent par exemple le a avec le p et ainsi de suite la function EnleveAccents va te crypter la string selon tes permutations, et pour décrypter faudra une deuxième constante avec les permutations dans le sens inverse et la même fonction te renverra la string décryptée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const
 SansAccent : array[#0..#255] of Char
             =  #0#1#2#3#4#5#6#7#8#9#10#11#12#13#14#15 +
                #16#17#18#19#20#21#22#23#24#25#26#27#28#29#30#31 +
                ' !"#$%&''()*+,-./0123456789:;<=>?' +
                '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'+
                '`abcdefghijklmnopqrstuvwxyz{|}~'#127 +
                '€'#129'‚ƒ„…†‡ˆ‰S‹Œ'#141'Ž'#143#144'''""•--˜™s›œ'#157'zY' +
                #160'¡¢£¤¥¦§¨©ª«¬*®¯°±²³´µ¶·¸¹º»¼½¾¿' +
                'AAAAAAÆCEEEEIIIIDNOOOOO×OUUUUYÞß' +
                'aaaaaaæceeeeiiiidnooooo÷ouuuuyþy';
 
function EnleveAccents(const AText : String) : string;
var
 i:integer;
 p:pchar;
begin
 Result:=AText;
 if Result='' then exit;
 p:=@Result[1];
 for i:=1 to Length(Result) do begin
  p^:=SansAccent[p^]; 
  inc(p);
 end;
end;

Tu peux même consever les noms de la constante SansAccent et de la function EnleveAccents comme cela même ton code sera en quelque sorte crypté (lol)

Cordialement et à plus.

**Konroy** · 08/06/2009, 16h44

Merci sa marche nikel, je voudrais savoir comment séparer les lettres par un point
1.12.15.2...
Merci

Edit: Gilbert Geyer le code n'est pas mal je vais l'étudier encore merci de l'aide

**Droïde Système7** · 08/06/2009, 17h49

Je ne vois pas pourquoi vous ne comprenez pas ?

Justement en partie pour ta question suivante :

Merci sa marche nikel, je voudrais savoir comment séparer les lettres par un point
1.12.15.2...

Une piste

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[...]
else Temp := Temp + IntToStr(26 + (val - 96)) + '.' ; // <== ajout ici  
[...]

@+

**Konroy** · 08/06/2009, 18h03

Ah ok j'ai pas très bien été clair

Merci en tout cas je vais essayé de faire le decrypteur maintenant.

**Konroy** · 08/06/2009, 18h25

Petite dernière question, comment je met un fond d'écran à ce petit programme svp ?

**Droïde Système7** · 08/06/2009, 18h46

fond d'écran

Peux-tu préciser ?

**Konroy** · 08/06/2009, 18h49

Heu, une image de fond, un arrière plan...

**Droïde Système7** · 08/06/2009, 18h56

Ben alors tu places sur ta TForm, un TImage et tu lui affectes une picture.

Mais il existe d'autres méthodes.
http://greatis.com/delphicb/tips/lib...imagebkgr.html
(Au passage, si création il y a, doit y avoir une libération : chose absente en ce code...)

@+

**mick605** · 08/06/2009, 19h09

Envoyé par Konroy

Salut, tout le monde. Je sais très bien qu'il y a des crypteur sur le marché mais je veux juste coder quelques petits programme simple

Je ne vois pas pourquoi vous ne comprenez pas ?
a = 1
b = 2
..
z = 26

Et bien, pour ma part, j'avais compris que tu voulais faire un programme qui affiche 213 pour traduire BAC ...
Or, UC se traduit par 213, car u=21 et c=3

Donc il y a un probleme ...
Par contre, maintenant que tu as décidé de rajouter des points, tout va mieux !!

Voila, je voulais juste m'expliquer !

Bonne chance pour la suite !