var
key, text, longkey, result: string;
i: integer;
toto, c: char;
begin
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do
begin
toto := chr((ord(text) xor ord(longkey))); // XOR алгоритм
result := result + toto;
end;
end;
Подскажите как организовать приём\передачу шифрованных данных.
чёто важное->шифруем->передаём->дешифруем->радуемся
и в обратном порядке...
желательно передавать один кило за раз.
сокеты будут блокирующие.
шифровать можно хором.
недолжны падать невкоем случае
как можно меньше Ресивов(т.е. по байтам я и сам могу)
если непонятено скажите чё именно.
Вот именно что не понятно... В чем проблема? Выложить здесь алгоритмы шифрования, или ты уже используешь какой-либо, но у тебя возникает ошибка там-то там-то... Я вобще не понял что тебе надо, как помочь тоже
те ресив на си и дельфях
и сенд на си и дельфях
код я небуду никуда вставлять чисто из принципа.
нужно просто посмотреть.
Ничем не могу помочь, писать за тебя не буду:
мне нужно определится как контроллировать длинну реальных данных, как избежать зависонов с блокинг ресив и главное принимать сразу киллограм.
Вот терь я тя понял, но с проблемой я не сталкивалсо, хотя можно найти ее решение в все том же дельфи ворлде, сорри за глюки моего моска, его зохавал ктулху
у меня 6.5 гиг разных книг справочников и я ничё подобного невидел...
короче нужен пример грамотной работы с винсок в блокинг моде
В свое время реализовывал его на сях и работал через сокеты.
Брал исходники из опенссл под линух, и переделывал под Вин с помощью Вин32 апи.
Если что #icq:319-065-150