Форум: "Потрепаться";
Поиск по всему сайту: 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.73 MB
Время: 0.02 c
1-32196           RUS1                  2002-01-29 12:41  2002.02.11  
Как можно удалить сразу все файлы и подкаталоги в директории


3-32141           TAN                   2002-01-14 13:19  2002.02.11  
TUpdateSQL


1-32291           serjant               2002-01-28 11:11  2002.02.11  
Сохранение QReport


1-32277           Vasya_dvc             2002-01-28 16:42  2002.02.11  
Подключение своего шрифта к программе


3-32118           KMZ                   2002-01-15 12:38  2002.02.11  
Привет всем !,народ помогите разобратся с проблемой