Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

СПАСИТЕ ОТ ОТЧИСЛЕНИЯ НУЖНА САМАЯ ПРОСТАЯ ПРОГА для ШИФРОВАНИЯ и ДЕШИФРОВАНИЯ СТРОКИ ТЕКСТА 


Andrey196   (2001-12-21 02:12) [0]

СПАСИТЕ ОТ ОТЧИСЛЕНИЯ НУЖНА САМАЯ ПРОСТАЯ ПРОГА для ШИФРОВАНИЯ и ДЕШИФРОВАНИЯ СТРОКИ ТЕКСТА можно на делпхи,паскале, сиси+,
да хоть на assemblere СПАСИТЕ!!!



Stanislav   (2001-12-21 02:19) [1]

Скинь мне на E-Mail понятное объяснение.



Andrey196   (2001-12-21 02:27) [2]

Stanislav проверь мыло



AlexeyV   (2001-12-21 05:07) [3]

Вот тебе юнит. Надеюсь что знаешь как его подключить и вызвать процедуры?

unit Crypt32;
{
* Description: 32 bits encode/decode module
* 2^96 variants it is very high to try hack
*Purpose: Good for encrypting passwors and text
*Security: avoid use StartKey less than 256
* if it use only for internal use you may use default
* key, but MODIFY unit before compiling
* Call: Encrypted := Encrypt(InString,StartKey,MultKey,AddKey)
* Decrypted := Decrypt(InString,StartKey)
* Parameters: InString = long string (max 2 GB) that need to encrypt
* decrypt *
* MultKey = MultKey key *
* AddKey = Second key *
* StartKey = Third key *
* (posible use defaults from interface) *
}

interface

const
StartKey = 981; {Start default key}
MultKey = 12674; {Mult default key}
AddKey = 35891; {Add default key}

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

implementation

{$R-}
{$Q-}
{*******************************************************
* Standard Encryption algorithm - Copied from Borland *
*******************************************************}
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;
{*******************************************************
* Standard Decryption algorithm - Copied from Borland *
*******************************************************}
function Decrypt(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(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
{$R+}
{$Q+}

end.




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
14-32327          Leviathan             2001-12-17 20:52  2002.02.11  
Улыбнитесь!


1-32290           Ежик                  2002-01-27 12:05  2002.02.11  
Помогите плииз! Дайте ссылку или примерчик!


1-32236           Rahim & Vad      2002-01-27 16:58  2002.02.11  
Отчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее


1-32218           Sergey Novoselow      2002-01-25 06:02  2002.02.11  
Как разложить выражение 200101 на 2001 и 01


4-32382           DenKop                2001-11-27 22:36  2002.02.11  
Вывод текста