Discussion :

[tintin62]

bonjour je suis en train décoder un fichier
j'ai u algorithme mais je ne sais comment traduire sa en delphi
formule ci dessous
merci pour votre aide
on est code que sur un seul byte

[tintin62]

bonjour
je fais sa mais sa marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function decode(d:byte):byte;
var
a,b,p:byte;
begin
a:=(d+$FF)and $FF  ;
b:=a xor $88 ;
 p:= (b and $7E) or (b shr 7 and $01) or (b shl 7 and $80) ;
 
 result:=p;
 
end;

[Delias]

Bonjour Tintin

Chez moi (Delphi 10.2 Starter), intégrée dans un programme mini (sans vérification d'erreur de saisie ) ta fonction fonctionne parfaitement.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  num : Byte;
begin
  num := StrToUInt('0x'+edit1.Text);
  num := decode(num);
  label1.Caption := format('%X', [num]);
end;

Trois valeurs testées par la fonction et à la main (entrée et sortie en hexa, les étapes intermédiaires en binaire):
00h -> 0000'0000b -> 1111'1111b -> 0111'0111b -> 1111'0110b -> F6h
7Eh -> 0111'1110b -> 0111'1101b -> 1111'0101b -> 1111'0101b -> F5h
FFh -> 1111'1111b -> 1111'1110b -> 0111'0110b -> 0111'0110b -> 76h

Delias

[tintin62]

bonjour
merci pour la réponse
donc quelque chose ne vas pas car j'ai pas les bons résultats

donc je continu a chercher
merci
++

[Papy214]

bonjour
merci pour la réponse
donc quelque chose ne vas pas car j'ai pas les bons résultats

donc je continu a chercher
merci
++

et quels sont tes résultats pour comparer à ceux trouvés par Delias ?

[tintin62]

bonjour
voici la page que j'ai trouve pour décoder le fichier
exemple $98 doit retourner 53 en décimal
$CC 40 en décimal
pour $98 je suis sur que 53 car je l'ai essaye
merci
lien ci dessous
https://stefan.schuermans.info/rdcam/pc_conn.html