Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c