Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

Crypt   Найти похожие ветки 

 
LYNXic ©   (2002-10-16 15:08) [0]

Почему этот код шифрует не весь текст, а только примерно 70-80 символов

unit Crypt32;

interface

const
StartKey = 981;
MultKey = 12674;
AddKey = 35891;

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;

implementation

{$R-}
{$Q-}

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
I : Byte;
begin
Result := "";
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;
{$R+}
{$Q+}

end.


 
McSimm ©   (2002-10-16 15:12) [1]

Этот код был написан для строк длиной < 256 символов.
Замени в обоих функциях

I : Byte;
на
I : Integer;
Все заработает.



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

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
7-92769
programmerts
2002-08-17 18:43
2002.10.28
Вроде лёгкий вопрос, но сложный.


3-92411
velk
2002-10-07 08:47
2002.10.28
Помогите пожалуйста с восстановлением базы данных под Informix..


4-92821
Пенсионер
2002-09-13 12:35
2002.10.28
Помогите ламеру осуществить хитрый перехват нажатие кнопки?


3-92389
angelcom
2002-10-08 05:04
2002.10.28
Помогите, плз. Или я торможу уже или.....


1-92535
Администратор
2002-10-15 18:40
2002.10.28
Простые числа, Года, Предсказание счастья ( не реклама)%)