Just nu i M3-nätverket
Jump to content

Läsa bokstav i en string och konvertera till ascii


Mikael

Recommended Posts

Hej igen!

 

Någon som vet ett sätt att läsa av bokstav för bokstav i en string? Och kan man sedan konvertera den till ett ascii värde? Jag funderar nämligen lite på ett krypteringsprogram men för att lösa iden måste detta gå att göra.

 

/Mikael

 

[inlägget ändrat 2001-12-18 18:23:52 av Mikael]

Link to comment
Share on other sites

 

Usch! :)

 

Först och främst så bör du/ni/han/alla använda en "känd" krypteringsalgoritm.

 

använd str för att komma åt ett visst tecken i en sträng, och ord(str) för att få det tecknets ascii-värde.

 

så... han kan göra något sådant här:

 

for i:= 1 to length(str) do
begin
 str[i]:= chr(ord(str[i]) xor $65);
end;

 

för att "kryptera", och samma kod för att "dekryptera".

 

Ciao,

Anders

shouts go out to wirre

 

 

[inlägget ändrat 2001-12-19 09:30:26 av Anders Nilsson]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...