Форум: "Потрепаться";
Поиск по всему сайту: 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.019 c
14-32348          Kost                  2001-12-20 15:28  2002.02.11  
Может быть кто видел такую вещь:


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


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


1-32287           gamer                 2002-01-26 02:05  2002.02.11  
Скроллинг


1-32215           nmarket               2002-01-23 23:47  2002.02.11  
Резервное копирование