Feld durch verschlüsselten Text ersetzen

[waldforest]

Hallo,
ich würde gerne ein Feld mit sich selbst nach Entschlüsselung in einer Firebirdtabelle ersetzen.
Hierzu dient die eigene Funktion Crypt, welche sich als Parameter zwei Textfelder bedient.

Ich habe dies derzeit wie folgt gelöst, dauert aber bei einer großen Datenbank endlos

Code:

  with Tabelle do
  begin
    for i := 1 To RecordCount do
    begin
      Edit  ;
      FieldByName('name').Value := Crypt(name, "WEDRFXEFCRTT"));
     Next;
    end;
  end;

wie könnte ich dies über den SQL Update lösen ?

Update Tabelle set name = Replace( name, name Crypt(name, "WEDRFXEFCRTT"))

leider gelingt es mir nicht dei Funktion einzubinden. Hat hier jemand Erfahrung ?

[Klaus01]

Guten Abend,

so ganz habe ich es nicht verstanden was Du bezwecken willst.
Liegt vielleicht auch an den Bezeichnungen die Du verwendest.

sqlText := 'Update Tabelle set name ='+Crypt(name, "WEDRFXEFCRTT") + 'where name = name;';
dann die sqlQuery ausführen.

Grüße
Klaus

[Luckie]

Der Flaschenhals könnte auch die uns verheimlichte Funktion Crypt sein.

[waldforest]

Hallo,
leider funktioniert dies nicht.

Im Prinzip möchte ich ein Feld, welches verschlüsselt ist entschlüsseln. Hinter Crypt verbirgd sich eine Stringverschlüsselung welche als Parameter Strings benötigt und einen String zurück gibt..

Bei vorgeschlagener Vorgenhensweise erhalte ich die Exception, dass das Feld name nicht gefunden wurde.

Auch das Ersetzen durch
sqlText := 'Update Tabelle set name ='+ Crypt(Tabelle.FieildbyName('name').value, "WEDRFXEFCRTT"))+ 'where name = name;';


hilt nicht

[Sir Rufo]

Das mag schon möglich sein, aber ein Flaschenhals ist definitiv das Update mit dem gezeigten Verfahren.

Dafür sollte man ein prepared Statement mit einem Parameter nehmen.
Das geht erheblich schneller.

Eine Query erstellen mit folgendem SQL-Text

Code:

UPDATE MeineTabelle SET name = :CryptName WHERE MeineTabelle.ID = :ID

Die DataSource der Abfrage-Query als MasterSource der Update-Query festlegen.

Delphi-Quellcode:

UpdateQuery.Prepare;
try
while not AbfrageQuery.EOF do
  begin
    UpdateQuery.ParamByName( 'CryptName' ) := Crypt( AbfrageQuery.FieldByName( 'name' ).AsString );
    UpdateQuery.ExecSQL;
    AbfrageQuery.Next;
  end;
finally
  UpdateQuery.Unprepare;
end;

Ob der Aufruf genau so funktioniert hängt von den verwendeten Komponenten und DB ab.

Zitat von waldforest:

Hallo,
leider funktioniert dies nicht.

Im Prinzip möchte ich ein Feld, welches verschlüsselt ist entschlüsseln.

Bei vorgeschlagener Vorgenhensweise erhalte ich die Exception, dass das Feld name nicht gefunden wurde.

Auch das Ersetzen durch
sqlText := 'Update Tabelle set name ='+ Crypt(Tabelle.FieildbyName('name').value, "WEDRFXEFCRTT"))+ 'where name = name;';
hilt nicht

Äh, bitte Transferleistung aktivieren ... DU kennst die korrekte Bezeichnung deiner Felder, WIR nicht!

Allerdings:

Code:

UPDATE
...
WHERE
  name = name

ist irgendwie sinnentleert, kann man dann auch gleich weglassen

[Klaus01]

so..

Deine Tabelle heißt Tabelle
Dein Feld heißt name
Deine StringVariable die du verschlüsselst heißt auch name

Da sehe mal einer durch.

Grüße
Klaus

[waldforest]

Vielen Dank,
Prepare kenne ich noch nicht, werde mich einmal damit befassen.

Leider funktioniert das mit Prepare nicht.
Scheint wohl mit Zeos und Firebird nicht zu funktionieren.

[Sir Rufo]

Da google auch dein Freund sein sollte findet der "bemühte" User den Hinweis, dass die Zeos-Komponenten das Prepared wohl automatisch eingebaut haben (ich setze die Zeos-Kompos nicht ein, sind mir zu langsam).

Also dann einfach die Werte durch den Parameter-Wolf drehen lassen.

Es würde ja auch helfen, die Zeiten zu messen, die du für das Verschlüsseln und für das Updaten der DB brauchst. Evtl. musst du an beiden Stellen schrauben.