Форум: "Потрепаться";
Поиск по всему сайту: 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.021 c
3-32153           Yu                    2002-01-16 14:03  2002.02.11  
Библиотека EhLib


6-32304           vvr                   2001-11-21 14:11  2002.02.11  
сети


1-32201           Oleg Fomicheff        2002-01-18 13:44  2002.02.11  
Помогите с алгоритмом


6-32298           Abzetdin              2001-11-18 22:08  2002.02.11  
Передача динамического массива через Сокеты


3-32116           BACEK                 2001-12-24 17:53  2002.02.11  
dbExpress не работает на машине где не установлен Delphi6 !