Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Rechercher Catégories - Programmation - Delphi
zion -  Faire un ROT13 en Delphi?
Encodage très simple et réversible, pas très sécure mais pour un cryptage de données non sensibles, c'est suffisant et facile :wink:

Code:
  1. function Rot13(AValue: WideString): WideString; 
  2. var 
  3.  i: Integer; 
  4.  lValue: UTF8String; 
  5. begin 
  6.   lValue := UTF8Encode(AValue); 
  7.   for i:=1 to Length(lValue) do 
  8.     case UpCase(lValue[ i ]) of 
  9.       'A'..'M': 
  10.         lValue[ i ] := Chr(Byte(lValue[ i ]) + 13); 
  11.       'N'..'Z': 
  12.         lValue[ i ] := Chr(Byte(lValue[ i ])- 13); 
  13.     end; 
  14.   result := UTF8Decode(lValue); 
  15. end;
Poster un commentaire
Utilisateur
Mot de passe
 
 Forum - Derniers messages
Bavardages
Aujourd'hui, je rénove ou je construis ^^
Réseaux et Télécom
Administrateur Réseau - Cisco
Réseaux et Télécom
Problème wifi (POE)
Software
Postfix - Need help
Bavardages
Oh râge oh désespoir !
Programmation
Enregistrement client et envoi mail
Software
SÉCURITÉ MACBOOK
Hardware
conseil matos réseau?
Hardware
nVidia Shield Android TV
Software
Transformer de l'audio en texte
  Actualités - Archives
Jeux Vidéos Jeux Vidéos
Assassin's Creed Shadows, Ubisoft publie la bande-annonce officielle avec la date de sortie
Google Google
Le nouveau bouton "Web" transforme Google en ce qu'il devrait être, ou du moins il essaie de le faire.
Google Google
Google officialise le Project Gameface : il sera possible de contrôler les jeux avec son visage
Microsoft Microsoft
Microsoft utilise l'IA pour améliorer la sécurité des chats vocaux
Jeux Vidéos Jeux Vidéos
Nintendo World Championships: NES Edition disponible le 18 juillet
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?