AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Foxpro CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 18 04:59:52
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMMENT PROTÉGER LES TABLES SANS UTILISER L'ENCRYPTAGE.


Information sur la source

Catégorie :Divers Classé sous : protection, table Niveau : Initié Date de création : 17/10/2004 Vu : 3 283
Auteur : Mike Gagnon Site perso
Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Voici un moyen d'empêcher l'ouverture d'une table soit avec FoxPro ou n'importe quel autre logiciel (Excel, Lotus 123 etc.) L'idée est corrompre la table (inverser l'ordre des cinq premier bytes du fichier) pour qu'elle devienne non lisible, et en roulant le code une deuxième fois, la situation redevient normale et la table peut être ouverte. Tou cela sans encryptage.

 

Source

  • CLOSE DATABASES all
  • lcTable = GETFILE('dbf') && Selectionner une table
  • lnHnd = Fopen( lcTable, 2 )
  • If lnHnd > 0
  • FSEEK( lnHnd, 5) && Retrouver les 5 premiers bytes
  • lcStr = Fread( lnHnd, 5)
  • lcNewstr = RIGHT(lcStr,1)
  • For i = 4 To 1 Step -1
  • lcNewstr = lcNewstr + SUBSTR(lcstr, i, 1) && Inverser l'ordre des 5 premiers bytes
  • Endfor
  • FSEEK( lnHnd, 5)
  • Fwrite( lnHnd, lcNewstr ) && Réécrire les cinq premiers bytes
  • Fclose(lnHnd) && Fermer le fichier
  • ELSE
  • MESSAGEBOX("Couldn't open table!",16,"Error...")
  • ENDIF 
CLOSE DATABASES all
lcTable = GETFILE('dbf') && Selectionner une table
lnHnd = Fopen( lcTable, 2 )
If lnHnd > 0
    FSEEK( lnHnd, 5) && Retrouver les 5 premiers bytes
    lcStr = Fread( lnHnd, 5)
    lcNewstr = RIGHT(lcStr,1)
    For i = 4 To 1 Step -1        
        lcNewstr = lcNewstr + SUBSTR(lcstr, i, 1)  && Inverser l'ordre des 5 premiers bytes
    Endfor
    FSEEK( lnHnd, 5)
    Fwrite( lnHnd, lcNewstr ) && Réécrire les cinq premiers bytes
    Fclose(lnHnd) && Fermer le fichier
ELSE
    MESSAGEBOX("Couldn't open table!",16,"Error...")
ENDIF

Commentaires et avis

signaler à un administrateur
Commentaire de olivierhamou le 18/10/2004 19:07:55

Pas mal du tout Mike

Olivier Hamou

signaler à un administrateur
Commentaire de Mike Gagnon le 18/10/2004 19:43:29

Vieux truc, mais très utile.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Différents formats de dbf [ par pledoux ] Bonjour,J'ai une table (dont je ne maitrise pas le format) dans laquelle je dois mettre à jour des champs. Sous VB ma propiété CONNECT vaut "FoxPro 3. modifier la structure d'un table sous VB [ par pledoux ] Bonjour,J'utilise le VFPOLEDB que m'a indiqué ThierryPerretier et cela fonctionne bien. Je dois maintenant modifier une table. J'ai fait le code suiva combobox dans un formulaire [ par brunaux ] Bonjour à tous !utilisant VFP 6.0 occasionnellement pour faire des écrans de saisie,je voudrais savoir comment l'on fait dans un combobox(donc avec un Remplir une table avec tous les jours de l'année sous forme date [ par atarte ] Bonjour,Voila j'ai besoin de constituer une table contenant tous les jours de l'année dans un champ nommé date. La perspéctive de devoir faire la mani vfpoledb, dbf dans plusieurs repertoire [ par lijohann ] bonjour,je commence juste a utiliser le vfpoledb et j'ai un probleme. Je voudrais executer un requete faisant appel à des tables.dbf se trouvant dans lister les champs et le type d'une table foxpro [ par AliceT ] Bonjour, je cherche le moyen (via oledb) de lister les champs ansi que les caractéristiques d'une table foxpro.J'attends vos idéesbiz'Alice problème avec alter table [ par jee0404 ] bonjour,             Je travaille avec les tables de foxpro (dbf) et j'ai faite un logicie exporter [ par mago1973 ] je veux exporter une table foxpro .dbf a une table dbase 3 ou 4 ou 5 et cela par programme fox pro prob avec un append from [ par gregorian ] Bonjour, J'ai été voir cette fonction, et il me semble qu'elle répond tout a fait à mes attentes sauf un petit problème.Donc, Relation [ par Domatreal ] HelloPetit probleme. J'ai 2 tables (Table A et Table B), j'aimerais supprimer un enregistrement de Table A chaque fois que j'ai une&nbs


Nos sponsors

Sondage...

CalendriCode

Novembre 2008
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.