/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Scramble en .exe - Part II
Fra : Yocal


Dato : 20-04-02 15:02

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.



 
 
Preben Bohn (20-04-2002)
Kommentar
Fra : Preben Bohn


Dato : 20-04-02 16:47



Yocal wrote:
> ?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;
[snip]

Men det har jo intet med din decrypt at gøre? Du siger jo at den giver
dig &'erne...

Det må jo nødvendigvis være et eller andet andet sted du skal finde
fejlen...
Hvordan sender du det afsted til browseren?

MVH PMB

Yocal (20-04-2002)
Kommentar
Fra : Yocal


Dato : 20-04-02 17:00

Problemet er løst,

Tak til Guruen, Thomas :)

// Yoc.



Thomas Nielsen (20-04-2002)
Kommentar
Fra : Thomas Nielsen


Dato : 20-04-02 19:42

"Yocal" <swdata@image.dk> wrote in message
news:3cc19091$0$78794$edfadb0f@dspool01.news.tele.dk...
> Problemet er løst,
>
> Tak til Guruen, Thomas :)

:D


Thomas



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste