Кодировщик

[rum]

вообщем суть кодировщика заключаеться в том чтобы он мог кодировать и декодировать!

потм пользователь может задатьв каком то определенном байте ошибку!
программа при декадировании должна найти и показать пользователю в каком байте была создана ошибка! в зависимости от ошибки, если одна ошибка то прграмма исправляет, если две то только обнаруживает и не исправляет!


может у кого нить есть исходник или сайты по кодированию кто знает подскажите плиз!

[Хыиуду]

Может быть, в каком бите? Как правило, ошибки ищутся побитово, побайтово - больно уж жирно

[rum]

ну да побитово!

найти бы готовый код! может кто знает какие нить сайты или ище что?

[Yura_ua]

Может вот это подойдет?
http://www.delphisources.ru/files/sourc ... ecoder.zip

[rum]

нет, это не то! этот кодировщик кодирует по не кому ключу, а мне надо чтобы он не кодировал без ключа! т.е. должен разбиваться байт пополам и к каждой половине должны приписыватся нули! потом все это должно соединяться!

[Хыиуду]

Так бы сразу и сказал!
var b:byte; w:word;
w:=b div 16*256*16+b mod 16*16
Обратно
b:=w div 256+(w mod 256) div 16