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 ^^
Software
problème sur windows 10
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
  Actualités - Archives
Microsoft Microsoft
L'application Xbox Avatar Editor ferme "en raison d'une faible utilisation".
Apple Apple
Le nouveau CarPlay semble vraiment en route
Internet Internet
SpaceX obtient le feu vert : la couverture Starlink pour les smartphones arrive, mais seulement dans certaines situations (pour l'instant)
Jeux Vidéos Jeux Vidéos
Test Dungeons 4 - Nintendo Switch Edition - Une adaptation un peu entravée
AMD AMD
AMD travaillerait sur son propre processeur pour smartphone pour 2026
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?