kann man denn mit dieser datei JEDE eigenschaft der komponenten verändern oder nur die für die du das programmiert hast. (ich wüsste nicht wie ich eigenschaften von kompos über einen string ansprechen kann, bei kompos selber geht das ja mit findcomponent).
das einfachste wäre eine xor verschlüsselung.
ich hab hier folgenden code aus dem EDH:
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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
| procedure PwdDecodeFile(FileName : string; Key : string);
var
I : Integer;
Zeichen : Byte;
mem : TFileStream;
keylen : Integer;
keypos : Integer;
begin
mem := TFileStream.Create(Filename,fmOpenReadWrite or fmShareExclusive);
keylen := length(key)-1;
keypos := 0;
for I := 1 to mem.Size do
begin
mem.Position := I;
mem.Read(Zeichen,1);
if keypos = keylen then
begin
Zeichen := Zeichen+ord(key[keypos]);
keypos := 0;
end
else
begin
Zeichen := Zeichen+ord(key[keypos]);
inc(keypos);
end;
Mem.Position := I;
mem.Write(Zeichen,1);
end;
mem.free;
end;
procedure PwdEncodeFile(FileName : string; Key : string);
var
I : Integer;
Zeichen : Byte;
mem : TFileStream;
keylen : Integer;
keypos : Integer;
begin
mem := TFileStream.Create(Filename,fmOpenReadWrite or fmShareExclusive);
keylen := length(key)-1;
keypos := 0;
for I := 1 to mem.Size do
begin
mem.Position := I;
mem.Read(Zeichen,1);
if keypos = keylen then
begin
Zeichen := Zeichen-ord(key[keypos]);
keypos := 0;
end
else
begin
Zeichen := Zeichen-ord(key[keypos]);
inc(keypos);
end;
Mem.Position := I;
mem.Write(Zeichen,1);
end;
mem.free;
end; |
In the beginning was the word.
Ich glaube, da läuft etwas ein bisschen falsch bei dir.
Ich weiß wie du die Komponenten im Programm benannt hast, ja und?
