Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Quelque chose cloche encore dans ta proposition; par exemple, avec ta fonction, =décoder("k";10) renvoie une valeur d'erreur.
Serge
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr((ca - code Mod 255 + 255) Mod 255) Next i décoder = tc End Function
db
Tatanka a écrit :
Quelque chose cloche encore dans ta proposition; par exemple,
avec ta fonction, =décoder("k";10) renvoie une valeur d'erreur.
Serge
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr((ca - code Mod 255 + 255) Mod 255)
Next i
décoder = tc
End Function
Quelque chose cloche encore dans ta proposition; par exemple, avec ta fonction, =décoder("k";10) renvoie une valeur d'erreur.
Serge
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr((ca - code Mod 255 + 255) Mod 255) Next i décoder = tc End Function
