Кодировка шестью символами

[Anton911]

Вобщем создал программу которая работает через сокеты,
программа работает нормально, но передает данные "открыто". Вобщем мне нужно закодировать передаваемую информацию.
Я решил сделать кодировку шестью симолами. Вот например:
A=qdzanq
B=dqzadn
C=qdazqa
D=qdzaqd
E=znadqz
F=adqazq и т.д.
Руским, английским символам, цифрам и другим знакам,
придумал подобные значения. Теперь вопрос, может быть знает кто-нибудь, как можно менее ресурсозатратно и
быстродейственно сделать кодировку\декодировку подобным
методом?

[veniside]

Наименее ресурсозатратно будет выкинуть эту из головы эту жэсть, и взять любой вменяемый блочный шифр.

[asmodey1]

Лень поискать ?
Ну вот, пожалуйста :
http://delphiworld.narod.ru/base/bas...de_decode.html

[Anton911]

Спасибо, что откликнулись, но почитав все это боюсь мозг не выдержит мой Можно ли какнибудь проще сделать шифровку, например если я буду использовать смещнеие номера сиволов с помощью inc(), dec().
А потом допустив в конец получившейся строки добавить число от 2 до 9 обозначающее как далеко символы сместились.

[Serge_Bliznykov]

asmodey1, не согласен с Вашим советом. кодирование base64 не является шифрованием (автору же явно нужно не кодирование, а шифрование информации!)

вот с мнением veniside абсолютно согласен.


Anton911, не нужно использовать такое примитивное кодирование - это абсолютно ни от кого и ни от чего не защитит.
И, если у Вас нет базовых знаний по криптографии, не надо придумывать свои шифры. Поверьте, что ОЧЕНЬ умные люди уже очень много думали и много всего придумали!
Возьмите ЛЮБОЙ алгоритм шифрации (не хочется/лень писать самостоятельно - возьмите любую библиотечку. Ту же cipher - Delphi Encryption Compendium Part I by Hagen Reddmann - маленькая, в исходных кодах ну и полностью freeware. Либо любую другую библиотечку шифрования. Благо их море...)

[asmodey1]

Шифрование (кодирование, encryption) - защита сообщения (информации) от несанкционированного просмотра или использования, основанная на преобразовании его в шифрованный текст.

Заодно можно еще перечитать название темы и первый пост

Сообщение от Anton911

Вобщем мне нужно закодировать передаваемую информацию.

[Anton911]

Спасибо. Еще вопрос: Можно ли какнибудь проверить являетсяли тип переменной integer или string?

[Человек_Борща]

Храни данные в Variant а там определяй. Про работу с этим типом погугли...

[Anton911]

Сообщение от Человек_Борща

Храни данные в Variant а там определяй. Про работу с этим типом погугли...

Про Variant я нашел:

procedure TForm1.ShowBasicVariantType(varVar: Variant);
var
  typeString : string;
  basicType  : Integer;

begin
  basicType := VarType(varVar) and VarTypeMask;

  case basicType of
    varEmpty     : typeString := 'varEmpty';
    varNull      : typeString := 'varNull';
    varSmallInt  : typeString := 'varSmallInt';
    varInteger   : typeString := 'varInteger';
    varSingle    : typeString := 'varSingle';
    varDouble    : typeString := 'varDouble';
    varCurrency  : typeString := 'varCurrency';
    varDate      : typeString := 'varDate';
    varOleStr    : typeString := 'varOleStr';
    varDispatch  : typeString := 'varDispatch';
    varError     : typeString := 'varError';
    varBoolean   : typeString := 'varBoolean';
    varVariant   : typeString := 'varVariant';
    varUnknown   : typeString := 'varUnknown';
    varByte      : typeString := 'varByte';
    varWord      : typeString := 'varWord';
    varLongWord  : typeString := 'varLongWord';
    varInt64     : typeString := 'varInt64';
    varStrArg    : typeString := 'varStrArg';
    varString    : typeString := 'varString';
    varAny       : typeString := 'varAny';
    varTypeMask  : typeString := 'varTypeMask';
  end;

  memoconsole.Lines.Add('Variant тип = '+typeString);
end;

Пробовал извлеч тип так:

temp:=Copy(s,1,Pos('$',s)-1);
Delete(s,1,Pos('$',s));
myvar:=temp;
ShowBasicVariantType(myvar);

В var temp имеет тип string. Но в temp:=Copy(s,1,Pos('$',s)-1); туда загружаются числа. В итоге мне в memo1 выдаёт: Variant тип =
Что я делаю не так?

[Serge_Bliznykov]

Что я делаю не так?

Вы просто не понимаете базисных основ.
Если у Вас есть переменная типа var temp : string;
то что бы Вы с ней в программе не делали, она всё равно будет переменная типа string. (более того, если попытаетесь её где-то использовать, где тип string не допустим, то получите ошибку о несовместимости типов в выражении.

temp:=Copy(s,1,Pos('$',s)-1); туда загружаются числа

от того, что в строке находятся числа, строка не перестаёт быть строкой
(посмотрите в help'е/документации программные преобразования строки в число - процедура VAL() и функцию StrToInt() )

а ещё лучше скажите, что Вам нужно, Вам подскажут и приведут пример рабочего и правильного кода...