Hejsa,
Jeg har benyttet mig af den delige Ord(); og Char(); til at gøre det hele
lidt mere besværligt at finde ud af... MEN... Der er noget jeg ikke forstår
helt...
edit1.Text :=
Format(Decrypt(#30#40#56#6#159#28#100#37#70#159#83#38#35#19#149#83#124#115#1
9#214#77#46#49#7#149#69#124#115#19), [sType, sExUsr, sUser]);
Dette returnerer ca:
?info=%s&exusr=%s&usr=%s
sType, sExUsr, sUser bliver så sat ind som de skal istedet for %s'erne...
MEN - det dejlige &-tegn - forsvinder... Pist...
Funktionen ser sådan ud
(Decrypt();)
Function TfrmSomeProg.Decrypt(d:string):string;
var
i,iPos:integer;
k:string;
s:string;
a,b,c:integer;
begin
iPos := 1;
k := #33#65#86#96#240;
For I := 1 to Length(d) do begin
a := Ord(K[iPos]);
b := Ord(D[I]);
c := a xor b;
s := s + Chr(c);
Inc(iPos);
if iPos > Length(K) then iPos := 1;
end;
result := s;
end;
Når jeg sender det afsted i browseren får jeg noget a' la'
?info=datastreamexusr=somebodyusr=yourself
(Fri fantasi mht. variablerne :))...
Hvorfor forsvinder mit &?
// Yoc.