Штрих код + Шифрование

[BARNEY]

Доброго времени суток.

Проблема следующая. Есть штрих код формата pdf417. В него засовываю строку предварительно зашифрованную компонентам
Wcrypt2. Всё хорошо печатается. Но сканер обратно считывает не все символы. т.е. считывает только A..Z , А..Я, 0..9, и доп символы типо /*-()= Всю остальную белиберду , типо ¬lч•Е‘љџp, просто не считывает...от сюда расшифровка не возможна.

Прошу помощи в выборе алгоритма шифрования ... Простая перестановка слишком легко взламывается... а Там перс данные...
т.е. нужно шифровать в рамках считывающихся символов, а их не так много. Может кто свежим взглядом посмотрит и подскажет направление.

[evg_m]

считывает только A..Z , А..Я, 0..9, и доп символы типо /*-()= Всю остальную белиберду

перевести результат работы из алфавита 0..255(все символы) в алфавит A..Z,0..9,... (читаемые символы) или его подмножество (1 байт в несколько)

как пример десятичная запись числа это алфавит 0..9
двоичная запись алфавит 0..1
английский текст из заглавных букв A..Z

при обратном чтении переводить обратно читаемые -> все

[BARNEY]

не совсем мысль уловил... т.е. есть пример

ИВАНОВ*ИВАН*ИВАНОВИЧ*7502369845*ООО PROGRAMMERSFORUM.ru

в зашифрованном виде это допустим

“суяЋЈM©О*LЙMВAMЏiфџNj·‚{Б¬lч•Е‘ љџp/R

каким образом это можно перевести...таблицу соответствий делать?

[Serge_Bliznykov]

BARNEY,
рекомендую не выдумывать велосипед. берите алгоритм Base64 - на выходе будет строка из английских буковок и циферок.
Реализаций Строка -> base64 и обратно - полно.

Либо, как вариант, переводите строчку в HEX вид:
C68DB95C08C5912E22
и его выдавайте в штрихкод.

минусы предложенных мною способов - увеличение длины текста (для base64 в 1.5 раза, для hex - в два раза)

p.s. кстати, очень рекомендую бесплатную библиотечку "Delphi Encryption Compendium Part I-III" (Copyright: Hagen Reddmann mailto:HaReddmann@AOL.COM)
там есть всё для шифрования, хэшей, CRC и прочей сопутствующей требухи...

[BARNEY]

минусы не важны в штрих код влазит 1500 символов я максимум буду 300 записывать.

uses EncdDecd;

// Кодирует поток в Base64
procedure EncodeStream(Input, Output: TStream);
// Декодирует поток из Base64 в нормальный вид
procedure DecodeStream(Input, Output: TStream);
// Кодирует строку в Base64
function  EncodeString(const Input: string): string;
// Декодирует строку из Base64 в нормальный вид
function  DecodeString(const Input: string): string;

всё хорошо, а по ключу как то это можно?

[Serge_Bliznykov]

всё хорошо а по ключу как то это можно?

Вы имеете в виду - шифровать?!
этим алгоритмом нет, нельзя. Это просто изменяет формат представления. Но ничего НЕ ШИФРУЕТ!

Для шифрации нужно использовать другие методы/функции/процедуры..
впрочем, я так понял, что шифрацию Вы уже делаете...

строку предварительно зашифрованную компонентам Wcrypt2

ну, если он Вас устраивает - им и шифруйте.
А результат шифрации преобазуйте в BASE64 и выдавайте в открытый доступ (в штрихкод) - получить бинарную строчку из него будет несложно, а вот получить исходную строку можно будет только через ДЕШИФРАЦИЮ! что Вам и нужно...

[BARNEY]

облом, корректно передать зашифрованную строку не удалось, почему то из DecodeString(const Input: string) получаться чушь


т.е.
a:= EncodeString( “суяЋЈM©О*LЙMВAMЏiфџNj·‚{Б¬lч•Е‘ љџp/R)
b:= DecodeString(a);

и в итоге a<>b

попробую сделать перестановку.... и добавление random значений в строку Base64.

[Serge_Bliznykov]

a:= EncodeString( “суяЋЈM©О*LЙMВAMЏiфџNj·‚{Б¬lч•Е‘ љџp/R)

примерчик кода со строчкой, которая кодируется/декодируется неверно запакуйте и выложите... посмотрим, что не так то..

[BARNEY]

нашёл грабли. а после скана , и преобразование в строку получается... на на какой стадии косяк пока не понял

mдЮb*&qqЉx–иС>Ц{kџ>/њЌџъaгЖСы1…О.™сшyqQф€Ёт'МЪ

[Serge_Bliznykov]

вот, посмотрите, может этот пример Вам поможет.
рекомендую подключить в uses synacode
и воспользоваться функциями
EncodeBase64( );
DecodeBase64( );