Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 726
Nombre de snippets : 2253
Connexion

Encodage décodage de chaîne, ROT N pour N paramétrable

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 17/10/2007 00:39:16 et initié par PCPT [Liste]
Vue : 11330
Catégorie(s) : Cryptage, Chaîne de caractères, Divers
Langages dispo pour ce code :
- VB6, VBA
- Delphi 5
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 17/10/2007
Posté par PCPT [Liste]
Function CodeRotN(ByVal sStr As String, ByRef iRot  As Integer) As String
    If LenB(sStr) > 2 Then
        If iRot < 1 Then
            iRot = 1
        ElseIf iRot > 255 Then
            iRot = 255
        End If
        
        Dim i As Long, ascii As Integer
        CodeRotN = sStr
        For i = 1 To Len(sStr)
            ascii = Asc(Mid$(sStr, i, 1))
            If ascii > 255 - iRot Then ascii = ascii - 255
            ascii = ascii + iRot
            Mid$(CodeRotN, i, 1) = Chr$(ascii)
        Next i
    Else
        CodeRotN = vbNullString
    End If
End Function
'
'
'  =====================
' EXEMPLE  D'UTILISATION
'  =====================
'
'
Private Sub Form_Load()
    Debug.Print CodeRotN("bonjour", 13)
    Debug.Print CodeRotN("bonjour", 128)
    Debug.Print CodeRotN("bonjour", 250)
    Debug.Print CodeRotN("o|{w|‚", 242)
    Debug.Print CodeRotN("âïîêïõò", 127)
    Debug.Print CodeRotN("]jiejpm", 5)
End Sub
Langage : Delphi 5
Date ajout : 25/10/2007
Posté par f0xi [Liste]
function Rot(const Str: string; const Rot: integer): string;
var N,L: integer;
    pB,pR : ^byte;
begin
  L := Length(Str);
  SetLength(result, L);
  pB := @Str;
  pR := @Result;
  for N := 1 to L do
  begin
    pR^ := (pB^ + Rot) mod 256;
    inc(pR);
    inc(pB);
  end;
end;

Snippets en rapport avec : Chaîne, Encoder, Décoder, Rot

17/12/2008 - Compter chaque occurrence de caractères d'une chaîne

28/07/2008 - Découper une chaîne de caractères d'après un séparateur vers une collection

20/04/2008 - Récupérer les dernières lignes d'un fichier ou d'une chaîne

18/09/2007 - Formater une chaîne composée

08/09/2007 - Vérifier et forcer la validité d'un fichier (caractères interdits)

23/08/2007 - Format html (url) vers format chaîne ascii

23/06/2007 - Rechercher et afficher une ou plusieurs occurences d'une chaîne dans un Txtbox ou un Richtextbox

06/02/2007 - Replace de masse, remplacer des chaînes par d'autres en une seule opération

26/07/2006 - Remplacer une chaîne par une autre dans un fichier



Codes sources en rapport avec : Chaîne, Encoder, Décoder, Rot

{C / C++ / C++.NET} [C++] BASE64CONVERTER V1.1, UN ENCODEUR DÉCODEUR EN BASE64
Ce logiciel décode ou encode des chaînes de caractères ou des fichiers en base 64, un système qui co...

{SQL} SUPPRESSION DES ESPACES MULTIPLE D'UNE CHAÎNE (ORACLE ,SQL)
suppression des espaces multiple d'une chaîne de caractère en sql oracle http://docs.oracle.com/cd...

{SQL} TRANSFORMER UNE CHAÎNE EN UN TABLEAU D'ENREGISTREMENT (ORACLE, SQL)
transformer une chaîne de caractère avec un séparateur en un tableau d'enregistrement en sql (oracle...

{C / C++ / C++.NET} EVALUATION D'UNE CHAÎNE DE CARACTÈRES AVEC UN ARBRE BINAIRE
La chaîne de caractères est "parsée" dans un arbre binaire L'arbre est affiché, puis évalué (avec d...

{Visual Basic, VB6, VB.NET, VB 2005} [HTA] ENCODER VBS2VBE & DECODER VBE2VBS
J'ai crée cet outil dont le but principal est de décoder quelques fichiers encodé ayant l'extension ...

{C# / C#.NET} PREPAREDFORMAT
Classe qui permet de formater des chaînes à partir d'objets, d'indexeur, de tableaux en précisant le...

{C# / C#.NET} T-SQL FORMATER
J'ai, dans une application, des requêtes générées par des stringBuilder. Ces requêtes ressortent sou...

{Visual Basic, VB6, VB.NET, VB 2005} CHAÎNE ALÉATOIRE / RANDOM STRING
Voila une petite fonction pour avoir une chaîne de caractère aléatoire composer de lettres(maj , min...

{Visual Basic, VB6, VB.NET, VB 2005} LECTEUR RSS EN VB.NET
Bonjour à tous, Je suis en train de développer une application pour laquelle j'ai décidé d'afficher...

{PHP} GÉNÉRER UNE CHAÎNE ALÉATOIRE SANS BOUCLE NI CRYPTAGE (MD5 OU AUTRE)
Jusqu'à présent tous les générateurs de clé que j'ai trouvé utilisait une boucle ou les fonction sha...