Crypter Data Paradox Table

Question

Bonjour à vous,

Je suis entrain de créer ma première application avec une BD Paradox.

J'ai trouvé un algorithme pour encrypter les data que j'envoie dedans. J'explique comment je procède :

Premièrement, voici  ce que j'utilise 

J'utilise une Base de Données Paradox nommé Users.DB
Un DBGrid pour l'affiche de certaines informations de ma BD.
Des Champs DBEdit pour modifier ou entrer des informations dans la BD.

Donc voici comment j'encrypte : Je rempli les champs et ensuite j'appuie sur Sauvegarder. 

Voici le code j'ai seulement garder l'essentiel pour vous faciliter la tache !:

procedure TForm1.Image3Click(Sender: TObject);
begin

DBEdit1.Text := Encode(DBEdit1.Text, SecurityString);
DBEdit2.Text := Encode(DBEdit2.Text, SecurityString);

Users.Post;

DBEdit1.Text := Decode(DBEdit1.Text, SecurityString);

DBEdit2.Text := Decode(DBEdit2.Text, SecurityString);
end;

N.B.: Encode, Decode (Ce sont des fonctions que j'ai créé pour le cryptage) 
function Decode(Data, SecurityString: string)

Cependant, il y a un petit problème. Comme les données entrent maintenant Crypté dans la BD, dans la DBGrid, les données sont aussi cryptés donc dans mon DBGrid je ne vois que des ZnHksdlK/nsJkL (exemple :P) Donc ma question, comment je fais pour Decrypter mes données de ma BD avant que la DBGrid chargent les informations de la BD ?

Il est important que la BD soit toujours Crypté, meme pendant l'execution du programme.

Merci de m'aider !!

dominique.stock · Answer

Bonjour,
Dans le DBGRid sur l'événement qui redessine les cellules ou colonnes (je ne me souviens plus) tu réecris en décodant. ...

Dom

tomz24 · Answer

ok ... je m'en doutais masi c'est justemetn ca que je cherche .. l'événement ou je dois decoder et comment decode les cellule une par une ?

tomz24 · Answer

ben en fait, l'evenement jle connais :

DrawColumnCell

voici le code que j'ai a l'interieur presentement :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

var dataset:Tdataset;

begin
      dataset:= (Sender as TDBGrid).DataSource.DataSet;
    with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
         Canvas.Brush.Color := $00E6D9C4//$00EBFEFB
         else
         Canvas.Brush.Color := $00EAF7FF;// $00E7ECCA
      if  DataLink.ActiveRecord = Row -1 then
                               begin
                               Canvas.Font.Color:=clwhite ;
                               Canvas.Brush.Color:=clblack;
    end;                       end ;
     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;

dominique.stock · Answer

Ben voilà , c'est ici en faisant un textout ...

Dom

tomz24 · Answer

je suis assez débutant en programmation ... pourrais-tu m'éclaire encore :P un textout jme doute c'est quoi masi commetn on fais ca exactement ? 

Désolé d'être poche comme ca :(

dominique.stock · Answer

ici http://www.developpez.com/delphi/faq/?page=composbdd
tu trouveras ton bonheur ...

Dom

tomz24 · Answer

bon, et bien je crois que je vais seulement mettre un mot de passe . .ca va etre plus simple .. j'arrive a rien !!

dominique.stock · Answer

procedure
 TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var dataset:Tdataset;

begin
      dataset:= (Sender as TDBGrid).DataSource.DataSet;
    with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
         Canvas.Brush.Color := $00E6D9C4//$00EBFEFB
         else
         Canvas.Brush.Color := $00EAF7FF;// $00E7ECCA
      if  DataLink.ActiveRecord = Row -1 then
                               begin
                               Canvas.Font.Color:=clwhite ;
                               Canvas.Brush.Color:=clblack;
    end;                       end ;

     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);
     TextOut(Rect.Left, Rect.Top, Decode(DBGrid1.Fields[DataCol].Text)); 
end; 
end;








Dom

tomz24 · Answer

ca ne fonctionne pas ... [Error] Unit1.pas(412): Incompatible types: 'Integer' and 'String' [Fatal Error] UsersInfo.dpr(6): Could not compile used unit 'Unit1.pas' Ligne 412 : TextOut(Rect.Left, Rect.Top, Decode(DBGrid1.Fields[DataCol].Text)); Voici ma fonctione Decode : function Decode(Data, SecurityString: string): string; var i, x, x2: integer; s1, s2, ss: string; begin Result := #1; if Length(SecurityString) < 16 then Exit; for i := 1 to Length(SecurityString) do begin s1 := Copy(SecurityString, i + 1,Length(securitystring)); if Pos(SecurityString[i], s1) > 0 then Exit; if Pos(SecurityString[i], Codes64) <= 0 then Exit; end; s1 := Codes64; s2 := ''; ss := securitystring; for i := 1 to Length(Data) do if Pos(Data[i], ss) > 0 then s2 := s2 + Data[i]; Data := s2; s2 := ''; if Length(Data) mod 2 <> 0 then Exit; for i := 0 to Length(Data) div 2 - 1 do begin x := Pos(Data[i * 2 + 1], ss) - 1; if x < 0 then Exit; ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); x2 := Pos(Data[i * 2 + 2], ss) - 1; if x2 < 0 then Exit; x := x + x2 * 16; s2 := s2 + chr(x); ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); end; Result := s2; end;

tomz24 · Answer

Ca ne fonctionne pas plus meme si je met la "bonne" commande

TextOut(Rect.Left, Rect.Top, DecodePWDEx(DBGrid1.Fields[DataCol].Text, SecurityPass));

dominique.stock · Answer

TextOut(Rect.Left, Rect.Top, Decode(DBGrid1.Fields[DataCol].Text,securitystring)); 





Dom

dominique.stock · Answer

Essaie 
TextOut(Rect.left,Rect.top,'TOTO')

Si ca compile, et que quand tu le lances t'as Toto dans ta grille c'est que c'est ton decode qui merdoie

Dom

tomz24 · Answer

Ca ne fonctionne pas .. toujours la meme erreur !

dominique.stock · Answer

dbgrid.canvas.textout ...

Dom

tomz24 · Answer

ouin .. jviens de comprendre ce que tu voulais faire avec ton textout .. ca donne un résultat assez bizzare !

Il y a le texte encrypté en dessous et sur le dessus tu vois les data decodées ...

tomz24 · Answer

yas pas moyen de decopder les Data AVANT que le DBGrid load les datas de la BD ? et a chaque refresh de la BD normalement le DBGrid se met a jour ... yas-tu moyen qu'en se mettant a jour, qu'il decode les data avant?

dominique.stock · Answer

Il faut que tu travaille dessus comme ça , c'est l'idée .... cherche avec google avec ces fonstions pour trouver des exemples ...

Dom

tomz24 · Answer

Merci beaucoup DOM .... mais je crois que je vais chercher pour une autre solution !

Mais .. merci pour la piste :)

cs_Delphiprog · Answer

Et en utilisant l'évènement OnGetText du composant champ d'un TTable ou d'un TQuery, ce ne serait pas plus simple ?
procedure TForm1.Table1NotesGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if DisplayText then
    Text := Decode(Text, SecurityString);
end;


De cette façon, dès qu'il s'agit d'afficher la valeur et ce quel que soit le composant d'affichage utilisé, la valeur affichée apparaitra toujours décodée.

Pour ce qui est de mettre un mot de passe sur une table Paradox, alors là je rigole : 
qui ne connait pas les mots de passe génériques qui permettent d'ouvrir n'importe quelle table Paradox...

May Delphi be with you !


<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

dominique.stock · Answer

C'est où OnGetText ?
Quel Delphi ?
En Delphi 7 Entreprise, je ne l'ai pas (ou je ne sais pas l'utiliser)

Dom

dominique.stock · Answer

Ca y est merci, j'y suis arrivé.
 je ne connaissais pas OnGetText

Dom

tomz24 · Answer

moi non plus je ne trouve pas le OnGetText dans delphi enterprise 7 !

dominique.stock · Answer

procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := 'Mon texte';
end;

 

procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
   Query1.Fields[1].OnGetText:=SetTheText;
end;

Dom

tomz24 · Answer

as-tu MSN Dom ? jacasseur hotmail com

dominique.stock · Answer

Non,
Query1AfterOpen c'est un evenement de la query

Setthetext, c'est une procedure normale

Dom

tomz24 · Answer

ok ... mais la je comprenais le OnGetText mais là t'a ajouté un Query (Est-ce un composant que je dois ajouter a ma form ?)

pourquoi le SetTheText ?

moi toutes les donné sont deja crypté dans ma base de données ... il reste a les decrypter AVANT de les afficher dans mon tdgrid

dominique.stock · Answer

Ton dbgrid n'est pas lié à une query ? ou un TTable ?
c'est là que tu trouveras l'événement qui te permettra de modifier en runtime l'événement ongettext du champ afin de modifier son comportement avec la procedure onsettext en faisant :
Text:=Decode(text) ; ...

Dom

tomz24 · Answer

j'utilise un TTable avec un TDataSource.

tomz24 · Answer

de plus dans la liste d'événements, je n'ai ni OnGetText ni OnSetText sur aucun de mes component (DBGrid, TTable, TDataSource)

dominique.stock · Answer

OnGetText est un event de TField ..

Dans ta table créé l'evénement AfterOpen et fais comme j'ai mis plus haut alors tu ciomprendras ...

Je te le transpose au cas ou .. :
procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := 'Mon texte';
end; 

procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
   Table.Fields[1].OnGetText:=SetTheText;
end;

Dom

tomz24 · Answer

comme ca ?

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
begin
 procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := 'Mon texte';
end;

procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
   Table.Fields[1].OnGetText:=SetTheText;
end;
end;

dominique.stock · Answer

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
begin
Users.Fields[1].OnGetText:=SetTheText;
end;

procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := 'Mon texte';
end;

En italique ce que tu tapes.
Pas en italique c'est l'edi qui l'"écrit" 

Dom

tomz24 · Answer

oui .. désolé c'est ce que j'ai fait . .cependant j'ai un problème avec le OnSetText .. 

[Error] Unit1.pas(565): Undeclared identifier: 'SetTheText'
[Error] Unit1.pas(565): ';' expected but ')' found
[Error] Unit1.pas(572): Undeclared identifier: 'SetTheText'

565procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text :=  'Mon texte';
end;

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
begin
  572 Users.Fields[1].OnGetText: =SetTheText;
end;

end.

tomz24 · Answer

oui .. désolé c'est ce que j'ai fait . .cependant j'ai un problème avec le OnSetText .. 

[Error] Unit1.pas(565): Undeclared identifier: 'SetTheText'
[Error] Unit1.pas(565): ';' expected but ')' found
[Error] Unit1.pas(572): Undeclared identifier: 'SetTheText'

565procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text :=  'Mon texte';
end;

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
begin
  572 Users.Fields[1].OnGetText: =SetTheText;
end;

end.

dominique.stock · Answer

Il faut déclarer la procédure dans public (en haut de ton unité) comme toutes les procédures que tu créées ...
Dis mois, cela fait combien de temps que tu fais du Delphi ... ?

Dom

tomz24 · Answer

a vrai dire .. depuis quelques semaines je dois faire quelques logiciels. J'essaye d'apprendre :( 

Désolé d'etre débutant !

tomz24 · Answer

bon .. là j'ai déclaré comme il se doit et ca fonctionne .. je n'ai plus d'erreur. j'avais essayé de le declarer tantot et ca ne fonctionnait pas car j'avais laissé le TForm1 dans la déclaration.

Maintenant peux-tu m'expliquer l'utilité du SetTheText ?

dominique.stock · Answer

Ben c'est pas tellement le fait que tu sois débutant qui me gêne, 
Le mieux cela serait de faire qques programmes style calculatrice, conversion franc euro ,...

Et aprés tu t'attaques aux bases de données ...

Dom

tomz24 · Answer

facile de faire des programme style calculette !

j'en ai fait qqs-un .. des petites choses normales ... mais la j'ai besoin d'une BD cause de securité. J'aurais pu le faire et envoyer ca dans un fichier Texte masi bon ... les Base de données ca va toujours m'etre utile !

Je veux apprendre et ma facon dM'apprendre c'est en voyant du code ! et surtout en l'appliquant dans MES programmes !

dominique.stock · Answer

OK mais, c'est quand même pratique de savoir faire des procédures ou des fonctions ...
Et de les déclarer correctement ...
Bon courage 
Dom

tomz24 · Answer

tu peux pas m'aider a finaliser ca .. il ne reste que le decryptage pour completer mon application à 100% !

Je comprends pas l'utilité du SetTheText.

tomz24 · Answer

Users.Fields[1].OnGetText:=DecodePWDEx(Users.Fields[1].OnGetText, SecurityPass);

dominique.stock · Answer

Ben voilà

Dom

tomz24 · Answer

bon ca marche pas avec cette commande.

Comme ceci ca fonctionne ... je peux compiler .. cependant dans mon tgrid .. la colonne 1 et bien il n'Y a rien d'écris dedans !

procedure TForm1.SetTheText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := DecodePWDEx(Text, SecurityPass);
end;

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
begin
 Users.Fields[1].OnGetText:=SetTheText;
end;

dominique.stock · Answer

la colonne 1 est en fait la colonne d'indice 0 (Field[0])
essaie de faire 
text:='TOTO';

Dom

tomz24 · Answer

ouais ca écris TOTO sur toute la colonne

Cependant, moi je veux voir mes champs décryptés :)

tomz24 · Answer

PS - Oui j avais compris l'indice 0 .. je vais me faire une boucle FOR quand le decryption va fonctionner !

 :)

dominique.stock · Answer

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
var i:integer;
begin
for i:=0 to users.fields.count-1 do
 Users.Fields[i].OnGetText:=SetTheText;
end;

Dom

tomz24 · Answer

et pour decrypter, je met quoi dans la procédure SetTheText ? (Tous mes champs sont crypter)

Exemple de comment j'utilise ma procedure normalement :

La methode pour decrypter un champ edit par exemple avec ma procedure :

Edit1.Text := Decode(Edit1.Text, SecurityPass);

Donc je fias quoi avec ma procedure SetTheText poru decrypter les champs de ma BD ?

Text := ????????????????????????

cs_Delphiprog · Answer

Bon, on reprend tout depuis le début !
Vire ces codes qui sont trop compliqués pour toi et qui n'apporte rien à la compréhension.

Ensuite, fais un double clic sur le composant TTable (ou TQuery) ou un clic droit et sélectionne "Sélecteur de champs...".
A partir de là, si rien n'apparait dans la fenêtre qui vient de s'ouvrir, effectue un clic droit et sélectionne "Ajouter tous les champs". Delphi crée alors ce qui s'appelle des composants champs persistants.
Sélectionne le champ que tu souhaites décrypter à l'exécution et, dasn l'onglet "évènements" de l'inspecteur d'objets, double clique sur l'évènement OnGetText.
Delphi crée alors un squelette de code du type :

procedure TForm1.Table1SpeciesNoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

end;

C'est entre le begin et le end que tu vas saisir le code qui va déchiffrer le texte qui s'affichera dans les contrôles visuels.

procedure TForm1.Table1SpeciesNoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if DisplayText then
    Text := decrypte(Text, clé);
end;

Explication : seulement s'il y a besoin d'afficher (if DisplayText...) car dans les autres cas cela ne servirait à rien de déchiffrer si ce n'est pour ralentir l'application , tu affectes à Text (paramètre passé en "var" donc modifiable) la valeur décryptée, issue de la base de données.

C'est pas plus compliqué que ça et il n'y a nul besoin de déclarer de types procéduraux et d'affecter de pointeurs de méthodes !!! Attends d'avoir un peu plus de "métier" pour te lancer dans ce genre de manoeuvres...

Que demander de plus ?
Vive la simplicité de Delphi 

May Delphi be with you !


<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

tomz24 · Answer

voici ce que j'ai fait :

procedure TForm1.UsersNomGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
if DisplayText then
Text := DecodePWDEx(Text, SecurityPass);
end;

Résultat : Toute la Colonne Nom est en blanc alors que tous les autres champs sont crypté (ce qui est normal car je joue seulement avec la colonne NOM)

Cependant, les champs de la colonne NOM ne devrait-il pas etre décryptés ?

J'ai aussi essayé sans le if Display et j'ai le meme resultat !

Désolé d'avoir de l'ambition ... apres ce programme la et bien je ne vous demanderai plus d'aide.

cs_Delphiprog · Answer

"tous les autres champs sont crypté "
As-tu bien supprimé les code que tu avais ajoutés auparavant ?

procedure TForm1.UsersAfterOpen(DataSet: TDataSet);
var i:integer;
begin
for i:=0 to users.fields.count-1 do
 Users.Fields[i].OnGetText:=SetTheText;
end;

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

tomz24 · Answer

oui, tout ce que j'avais mis avant est supprimé (en commentaire) les declarations sont aussi en commentaire. et les reference sont enlevés !

tomz24 · Answer

Quelqu'un a une solution fonctionnelle ?

tomz24 · Answer

On est pret de la solution .. aidez-moi ... :)

cs_Delphiprog · Answer

Es-tu ab-so-lu-ment sur du résultat renvoyé par ta fonction de décryptage ?

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

tomz24 · Answer

ABSOLUMENT CERTAIN !

J'ai fait une petite application juste poru tester ma fonction de cryptage/decryptage !

un champ edit ... j'écris ce que je veux, ensuite j'appuie sur le bouton .. celui-ci m'envoie la string que j'ai ecris dans le edit.text et me le montre en format CRYPTÉ et ensuite un autre popup me le montre en format normal .. donc la decryption fonctionne bien !

PS - je travaille toujours avec la meme variable. Pour pas que tu pense que j'affiche une version de ma string qui n'A jamais ete crypté !

cs_Delphiprog · Answer

Question bête mais qui m'a déjà joué un vilain tour : la valeur décryptée ne contiendrait-elle pas de caractères nul (#0) en première position ?
As-tu testé ta fonction uniquement sur le champ qui pose problème ?

Quant aux autres colonnes de la grille ou contrôles visuels, il semblerait qu'ils ne soient pas connectés sur les bons champs de la table s'ils apparaissent cryptés alors qu'ils ne le devraient pas. Qu'en est-il du contenu de ta table ? Peux-tu vérifier avec l'explorateur de données si le contenu est "normal" ?

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

tomz24 · Answer

DelphiProg, aurais-tu msn ? au pire je pourrais t'envoyer mes sources.

tomz24 · Answer

Pour répondre a ta question, non je n'ai pas de valeur nulle.

et peut importe le champs que je tente de decrypter avec "TA" méthode et bien ca vient en blanvh !

tomz24 · Answer

Bon et bien je pense que je n'aurai plsu d'Aide sur ce site .. merci quand meme pour la piste vers la solution !

PS - si ce n'est pas encore réglé c'estq ue je travaille pas a temps plein sur ce projet !

tomz24 · Answer

bon .. j'avais mis mon projet de coté .. et la je veux le terminer car j'en ai de besoin assez rapidement ... quelqu'un peut m'aider à le terminer .. nous ne sommes pas tres loin de la solution !

Merci !

Crypter Data Paradox Table

62 réponses

Votre réponse

Discussions similaires