Шифрование

[-Jack-]

Всем доброго времени суток. Столкнулся с такой проблемой. На днях написал программу, хоть и простую, но над ней долго пыхтел. И решил ради интереса взглянуть на неё через HEX - редактор.

К сожалению, этим HEX - редактор можно будет перебить достаточно много информации.

Вопрос такой, возможно ли каким нибудь образом защитить так скажем исходники программы от исправления их через HEX - редактор.
Если да, то хотелось бы увидеть какие нибудь наглядные примеры )))

[Stilet]

Закриптуй любым протектором типа UPX и дело в шляпе

[-Jack-]

Думал об этом, но есть 1 минус ... не 1 пробывал
1. протектор можно легко взять
2. Очень часто на них ругаются антивирусы

[Stilet]

-Jack-

Видишь ли. даже если не удается в ХЕКС редакторах править, всегда под руокй может найтись какой-нить SoftIce, который все твои криптования все равно покажет. Ведь когда-то в ходе работы проги тебе понадобится расшифровку делать - этого не скрыть.

[-Jack-]

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

[Stilet]

Даже не знаю... ИМХО овчинка выделки не стоит. Сам быстро запутаешся вскоре.

[-Jack-]

Всё, разобрался сам, буду пробовать )))

[Андрей19930323]

хочу разобраться в шифровании текста с помощью шифра Гронсфельда. нашёл текст программы, так всё понятно кроме одного действия((
(K [(pred(i) mod length(K)) + 1]) - что оно выполняет?((

program Kriptograf; 
function Shifr ( Kod, K : string ): string; 
var i,t,d : integer; 
begin for i:=1 to length (Kod) do begin 
d:=ord (Kod[i]); 
t:= (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0'))); 
if t>=256 then dec (T,256); 
Kod[i]:=Chr(t); 
end; 
Shifr := Kod; 
end; 

var 
a,k,s:string; 

Begin 
writeln('vvedite slovo'); 
readln(a); 
writeln('vvedite kluch'); 
readln(k); 
s:= Shifr(a,k); 
writeln('s= ', Shifr (a, k)); 
readln; 
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

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

Сообщение от -Jack-

Всем доброго времени суток. Столкнулся с такой проблемой. На днях написал программу, хоть и простую, но над ней долго пыхтел. И решил ради интереса взглянуть на неё через HEX - редактор.

К сожалению, этим HEX - редактор можно будет перебить достаточно много информации.

Вопрос такой, возможно ли каким нибудь образом защитить так скажем исходники программы от исправления их через HEX - редактор.
Если да, то хотелось бы увидеть какие нибудь наглядные примеры )))

Никак. Рано или поздно, вы эти строки сами же дешифруете и используете.

А если вы что-то там запускаете , и шифруете пути. То я даже ломать ничего не буду. Просто вызову свой код в вашем адресном пространстве(CreateRomoteThread это позволяет). Тот же хук API.
Ну собственно после CreateRomoteThread можно вообще на ушах стоять, главное знать как.

Можно использовать мощьные средства, типа VMProtect, ASProtect, Enigma, но сути не меняет. Рано или поздно вы сами расшифруете эти строки. Да и протекторы успешно палятся антивирусами, особенно VMProtect, от которого АВ просто в бешеной панике с пеной у рта.
Да и веса к exe добовляют. Надо оно или нет?


P.S. UPX - это НЕ ПРОТЕКТОР!, а упаковщик, не надо путить дерево с доской.


Андрей19930323, не суйтесь не в свою тему.

t:= (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0')));

Ord возвроащает код символа ввиде числа. К приверу знак © вернет код 0169.
mod - деление без остатка.

[Андрей19930323]

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

Андрей19930323, не суйтесь не в свою тему.


Ord возвроащает код символа ввиде числа. К приверу знак © вернет код 0169.
mod - деление без остатка.

все эти стардартные функции Delphi я знаю, только не могу понять совокупность стандартных функций этой части (K [(pred(i) mod length(K)) + 1])