Discussion :

[Oncle_Pete]

Salut,


Concerne par le sujet, je suis en train de regarder l'algo de Vigenere sous Delphi et j'ai recupere la fonction ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function Trans(Ch1,Ch2: Char;Sens:smallint): Char;
const Alphanum='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
var a,b,r, l:integer;
begin
  l:=Length(Alphanum);   => ce qui donne 62
  a:=Pos(Ch1,Alphanum)-1;
  b:=Pos(Ch2,Alphanum)-1;
  r:=(a+b*sens);        => imaginons que r = l 
  if r<0 then r:=l+r;    => on ne passe pas la
  if r>l then r:=r-l;     => on ne passe toujours pas la
  Result := Alphanum[r+1];  => autrement dit [63] ce qui donne ... rien de bon
end;

Bref, si on ajoute avant le Result:= la ligne

Code :

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

1
2
 
  if r+1 > l then r:=0;

ca ira tout de suite mieux

En esperant que ca fasse avancer le smilblick

@+

Oncle_Pete

[anapurna]

salut

y'a plus simple comme modif reprenons ton code
suffit de reduire la longueur de 1

Code :

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

1
2
3
4
5
6
7
8
 
function Trans(Ch1,Ch2: Char;Sens:smallint): Char;
...
begin
  l:=Length(Alphanum);   => ce qui donne 62
  ...
  if r > Pred(l) then r:=r-l;
end;

@+ Phil

[Gilbert Geyer]

A toutes fins utiles je vous signale que l'on peut télécharcher :
- l'algorithme de cryptage de Blaise de Vigénère,
- sur le site http://www.chez.com/algor/vigenere.htm
- à la ligne "Charger une version Delphi de cet algorithme en cliquant ici"
- le fichier vigenere.zip

... par exemple pour faire des tests comparatifs ...