Вниз
Скачать: CL | DM;

Какой алгоритм использовать   Найти похожие ветки 

 
Alien1769 ©   (2006-06-19 17:41) [0]

Ребята нужна помощь.
Есть строка
si:="123456789";
Как получить после кодировки
so:="bdfhjlnpr;

Я забыл этот алгоритм. Кто знает подскажите.


 
Lamer@fools.ua ©   (2006-06-19 17:44) [1]

function Crypt(const S: String): String;
begin
  if S <> "si:=""123456789"";" then
    raise Exception.Create("Unexpected argument value.");
  Result := "so:=""bdfhjlnpr;"
end;


 
Gero ©   (2006-06-19 17:45) [2]

xor


 
Alien1769 ©   (2006-06-19 17:52) [3]


> Gero ©   (19.06.06 17:45) [2]
> xor

Большое спасибо :)


 
Alien1769 ©   (2006-06-19 17:56) [4]


> so:="bdfhjlnpr


Уточняю: после функции кодировки коды символов - четные, это главное в задании.


 
palva ©   (2006-06-19 21:25) [5]

> коды символов - четные
Ну, после такой подсказки...


 
Alien1769 ©   (2006-06-19 21:36) [6]


> после такой подсказки

Какая Вам нужна?
Может следующая:
ord("1")=49
ord("b")=98
чтобы получить
so[1]:=ord("1")+49;
so[2]:=ord("2")+49; //дает 99 символ "c" , как получить четные коды ?


 
Alien1769 ©   (2006-06-19 21:41) [7]

to Gero
Большое спасибо !! Уже понятно.


 
SergP.   (2006-06-19 22:43) [8]

> [6] Alien1769 ©   (19.06.06 21:36)
>
> > после такой подсказки
>
> Какая Вам нужна?
> Может следующая:
> ord("1")=49
> ord("b")=98
> чтобы получить
> so[1]:=ord("1")+49;
> so[2]:=ord("2")+49; //дает 99 символ "c" , как получить
> четные коды ?


Может тогда for i:=1 to length(so) do so[i]:=chr(ord(so[i]) shl 1);
???

:-)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
15-1150734006
Ketmar
2006-06-19 20:20
2006.07.23
профессиональная деформация...


3-1147188386
demon81
2006-05-09 19:26
2006.07.23
Переподключение к MS SQL Server при ошибке


3-1148245972
lamer_y
2006-05-22 01:12
2006.07.23
Access


2-1151838850
МишаК
2006-07-02 15:14
2006.07.23
компоненты делфи


15-1150952995
Ega23
2006-06-22 09:09
2006.07.23
С Днём рождения! 22 июня




   Наверх