IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Algorithmes et structures de données Discussion :

[Cryptographie] Questions sur chiffrement XOR


Sujet :

Algorithmes et structures de données

  1. #21
    Membre habitué
    Profil pro
    Collégien
    Inscrit en
    janvier 2008
    Messages
    263
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : janvier 2008
    Messages : 263
    Points : 157
    Points
    157
    Par défaut
    salut il manque juste une petite fonction ExpoModGN

  2. #22
    Rédacteur

    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    août 2013
    Messages
    555
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Finance

    Informations forums :
    Inscription : août 2013
    Messages : 555
    Points : 2 601
    Points
    2 601
    Par défaut
    Citation Envoyé par Gorzyne Voir le message
    salut il manque juste une petite fonction ExpoModGN
    Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    '---------------------------------------------------------------------------------------
    Public Function ExpoModGN(ByVal GN As String, ByVal Expo As String, ByVal Modulo As String) As String
    '---------------------------------------------------------------------------------------
    ' EXPONENTIATION MODULAIRE RAPIDE : GN^Expo MOD Modulo.
    '---------------------------------------------------------------------------------------
    Dim x As String
    x = 1
    While Expo > 0
        If Right(Expo, 1) Mod 2 = 1 Then x = ModGN(PGN(GN, x), Modulo)
        GN = ModGN(PGN(GN, GN), Modulo)
        Expo = IntGN(PGN(Expo, "0.5"))
    Wend
    ExpoModGN = x
    End Function
    Débutants, n'hésitez pas à consulter mon mémento sur la programmation en VBA pour EXCEL tome 1.
    Ou le tome 2 qui aborde la programmation en mode graphique avec un exemple de programmation d'un jeu d'arcade en VBA.
    Pour les curieux, le tome 3 explique le problème du voyageur de commerce.
    Le tome 4 est consacré à la cryptologie en VBA.
    Vous découvrirez dans le tome 5 les fonctions SQL pour gérer les tableaux de données et l'application Sentinelle qui veille sur vos fichiers.
    Le tome 6, dernier de la série, vous apprendra à créer des fonctions pour simplifier la vie des utilisateurs.
    Le Crible Quadratique donne toutes les fonctions pour les opérations sur les grands nombres en VBA.
    En bonus : Programmation en VBA de menus personnalisés pour Excel, Manipuler les données des bases Access depuis Excel et Transférer des fichiers volumineux avec Outlook.

Discussions similaires

  1. Question sur le chiffrement/dechiffrement
    Par deglingo592003 dans le forum Sécurité
    Réponses: 5
    Dernier message: 05/08/2009, 13h03
  2. Quelques questions sur le TWebBrowser...
    Par CorO dans le forum Web & réseau
    Réponses: 3
    Dernier message: 17/01/2003, 22h23
  3. Question sur les handles et les couleurs...
    Par MrDuChnok dans le forum C++Builder
    Réponses: 7
    Dernier message: 29/10/2002, 09h45
  4. Réponses: 2
    Dernier message: 11/08/2002, 22h27
  5. question sur les message box !
    Par krown dans le forum Langage
    Réponses: 7
    Dernier message: 02/08/2002, 17h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo