+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4

Discussion: Cryptor v1

  1. #1
    Membre chevronné
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    mai 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mai 2009
    Messages : 332
    Points : 721
    Points
    721

    Par défaut Cryptor v1

    Voilà j'ai 15 ans j'ai creé un petit logiciel pouvez-vous m'aider à l'améliorer et voir si il marche sur vos machines ?
    merci

    Le lien du zip avec les fichiers sources + executables
    [lien supprimé]

    Merci de m'en dire des nouvelles

  2. #2
    Responsable Pascal, Delphi et Assembleur

    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    mars 2003
    Messages
    6 275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : mars 2003
    Messages : 6 275
    Points : 41 413
    Points
    41 413
    Billets dans le blog
    1

    Par défaut

    Bonjour,

    Le programme tourne. Il serait beaucoup plus convivial (mais plus compliqué, bien sûr) de créer un dialogue dans lequel l'utilisateur peut parcourir l'arborescence des répertoires pour enregistrer et charger le fichier crypté.

    Ceci dit, ton source serait beaucoup plus lisible s'il était agrémenté de commentaires.

    Dans les procédures convl et convc, tu effectues une batterie de tests qui pourraient être très avantageusement remplacés par un tableau déclaré sous forme de constante.
    Règles du forum
    Tutoriels, exercices, FAQ, sources, compilateurs, outils, livres Pascal
    Mes tutoriels et sources Pascal
    FAQ Assembleur

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]

  3. #3
    Membre chevronné
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    mai 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mai 2009
    Messages : 332
    Points : 721
    Points
    721

    Par défaut Cryptor

    Quand tu dits que elle pourrait être remplacer par des tableau, oui je sais, mais je sais pas comment faire si toi ou quelqu'un peu m'éclairsir

  4. #4
    Responsable Pascal, Delphi et Assembleur

    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    mars 2003
    Messages
    6 275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : mars 2003
    Messages : 6 275
    Points : 41 413
    Points
    41 413
    Billets dans le blog
    1

    Par défaut

    Tu peux déclarer une constante de type tableau comme ceci :
    Code :
    1
    2
    3
    Type TTabConv = Array [1..27,1..2] of Byte;
     
    Const TabConv : TTabConv = ((0,Ord(' ')),(1,Ord('a')) ... etc ... (46,Ord('z'));
    Règles du forum
    Tutoriels, exercices, FAQ, sources, compilateurs, outils, livres Pascal
    Mes tutoriels et sources Pascal
    FAQ Assembleur

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •