ШИфровка

[temned]

Парни подскажите как сделать: у меня в игре есть txt файл, как сделать так, что бы данные в txt были зашифрованны: например в txt у меня записано t8%FжW21?, а в проге реализовать так, что бы из t8%FжW21? прога читала, что там зашифровано, например там Крокодил? Знаю, что шифрованием занимается Lib_str, но как с помощью нее реализовать мою задумку?

[Piligrim]

в самом простом случае просто при чтении из ресурса декодируй посимвольно. Всё зависит от того как ты строку кодировал.

[temned]

не понял ПОКАжи

[HolyDel]

а в мидлете есть xor?

[beZ_probleM]

TEMNED

if getchar(str,i)='$' then encode:=encode+'Я'

str cчитаная строка из файла
і позиция символа в строке str
'$' твой закодированый символ
encode строка которая содержыт розкодированые символы
'Я' это твой закодированый символ '$'

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

Crypt,Encrypt:array[1..количество символов в твоей кодировке] of char;
массивы задавай вручную или читай из файла

это один из примитивных способов)

[ViNT]

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

if getchar(str,i)='$' then encode:=encode+'Я'

beZ_probleM, не надо учить людей заведомо неправильному подходу к программированию . Зачем вся эта куча if-ов? Вот с массивами метод еще более менее. Но из простых методов лучше всего использовать шифрование с применением операции xor. Метод довольно известный, простой, и вместе с тем достаточно надежный.

[odd]

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

beZ_probleM, не надо учить людей заведомо неправильному подходу к программированию . Зачем вся эта куча if-ов? Вот с массивами метод еще более менее. Но из простых методов лучше всего использовать шифрование с применением операции xor. Метод довольно известный, простой, и вместе с тем достаточно надежный.

В библиотеке Lib_str я уже реализовал шифрование по методу XOR. Так что шифровщик/расшифровщик уже есть. Беда только в том, что не все могут закодировать уже готовый текстовый ресурс. Нада будет ещё софтину для компа написать.

[Kurdt]

держи еще алгоритм


// Кодирование текста по юину
function code(text:string):string;
var i,u,ui:integer;
s,username:string;
begin
ui:=0;
u:=0;
//if length(username)<=2 then username:='6j0';
username:='119845609234971203909238472304964562039 486293846982340345897097543';
for i:=0 to length(text)-1 do begin
if u>=5 then u:=0;
u:=u+1;
if ui>=length(username) then ui:=0;
ui:=ui+1;
s:=s+chr(ord(getchar(text,i))-u-trunc(ord(getchar(username,ui))/60));
end;
code:=s;
end;

// декодирование текста по юину
function decode(text:string):string;
var i,u,ui:integer;
s,username:string;
begin
ui:=0;
u:=0;
//if length(username)<=2 then username:='6j0';
username:='119845609234971203909238472304964562039 486293846982340345897097543';
for i:=0 to length(text)-1 do begin
if u>=5 then u:=0;
u:=u+1;
if ui>=length(username) then ui:=0;
ui:=ui+1;
s:=s+chr(ord(getchar(text,i))+u+trunc(ord(getchar( username,ui))/60));
end;
decode:=s;
end;

//************************************************** ********

[abcdef]

>>
Беда только в том, что не все могут закодировать уже готовый текстовый ресурс. Нада будет ещё софтину для компа написать.
>>
odd, все можно написать только в MIDletPascal'е, например делаем алгоритм кодировщик в МР, желательно чтоб все символы после кодировки были в печатаемом диапазоне, затем сохраняем кодированную строку в RMS, запускаем прогу в MidpX, вытаскиваем кодированную строку из файла RMS

[Phantom]

abcdef, жжошь!

[abcdef]

самый простой способ кодировки в MP - сдвиг символов, например как сделано в SmsBox там как помнится к каждому символу нужно прибавить 10 или 32, уже забыл