hi@all...
ich verwende folgende funktion in einer dll um bestimmte texte zu codieren und decodieren. nun möchte ich aber bestimmte zeichen wie ' und " dabei ausschließen bzw. ignorieren. ist das möglich und wenn ja wie?
hin und wieder treten bei mir fehler auf wenn ich diese zeichen verwende. ein codierter text sollte also diese zeichen nicht beinhalten!
hier die funktion aus der dll:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| library codier;
uses
SysUtils,
Classes;
{$R *.res}
function codierer( s : String ):pchar;
var i:integer;
begin
for i := 1 to length(s) do
s[i] := char(byte(s[i]) xor 81);
result:=pchar(s);
end;
exports
codierer;
begin
end. |
ein beispiel sieht folgender massen aus:
aus
wird
| Zitat: |
| h%%!k~~&&&6>>6=454Q |
Lannes
