Осмысл

← →
esprit_bel (2002-07-02 05:44) [0]

ББ реально ли написать прогу, текст exe файла которой имел бы смысл?

← →
RV (2002-07-02 09:42) [1]

????????????????????????????

← →
Странный Прохожий (2002-07-02 10:11) [2]

Можно взять hex-редактор и просмотреть произвольный exe-шник.
И тайный смысл откроется! Но лишь истинному буддисту...

← →
limon (2002-07-02 10:51) [3]

> текст exe файла которой имел бы смысл?

Очень даже реально.
запускаешь блокнот, пишешь прога, сохраняешь в файл прога.ехе - что хотели, то и получили...

← →
RV (2002-07-02 10:56) [4]

Пиши операционку с встроенным интерпретатором :))

← →
Леша (2002-07-02 12:13) [5]

Интересно, а как тогда распотранять программы?

← →
Alx2 (2002-07-02 13:27) [6]

В дикой молодости извращался: брал небольшой текстовый файл с каким-нибудь рассказиком, давал ему расширение .com и запускал. Иногда не зависало. А один раз даже написало что-то непонятное:))
Я так хотел одну идею проверить по шифрованию текстов:
Берем, значит, "секретную" депешу. Даем ей расширение com и дизассемблируем чем-нибудь (я Sourcer использовал). Получаем программку на asmе - типа зашифрованый текст. Чтобы его расшифровать, достаточно было снова откомпилировать.

← →
Виктор Щербаков (2002-07-02 13:33) [7]

> В дикой молодости извращался: брал небольшой текстовый файл
> с каким-нибудь рассказиком, давал ему расширение .com и
> запускал.

Круто :)
Я чуть со стула не упал.

← →
Alexandr (2002-07-02 13:39) [8]

ага.
Веселый тут народ собрался...
Большие оригиналы по страданию х@ней

← →
Alx2 (2002-07-02 13:46) [9]

Ну, началось.... 8)
Я же подрос немножко уже :))

← →
Виктор Щербаков (2002-07-02 14:32) [10]

Alexandr © (02.07.02 13:39)
Ты типа всегда делом занят...
И не дурачишься никогда :)

← →
Shaman_Naydak (2002-07-02 14:40) [11]

COM файл можно действительно попытаться так написать..
но сколько трудов - даже представить страшно
:)
Мда, нехилые развлечения!

← →
Mike B. (2002-07-02 15:10) [12]

Желающим поразвлечся рекомендую попробовать переименовать, например, win.com и позапускать :-)

← →
Malder (2002-07-02 17:45) [13]

А я бы порекомендовал подумать вот над какой проблемой.
Как написать программу (лучше конечно на паскале досовском), чтобы она выводила свой исходник...

← →
RV (2002-07-02 18:02) [14]

Как написать программу (лучше конечно на паскале досовском), чтобы она выводила свой исходник...
можть при компиляции прилинковать как ресурс наме.пас

← →
Игорь Шевченко (2002-07-02 18:10) [15]

Malder © (02.07.02 17:45)

Много в инете таких программ...

← →
Malder (2002-07-02 18:57) [16]

RV, не. Чтобы был *.exe файл. Его запускаешь - появляется листинг программы. Если этот листинг скомпилить - получиться тот самый exe

Игорь Шевченко, можно ссылочку ?

← →
RV (2002-07-02 19:07) [17]

ну да, *.exe должен быть...
ведь egavga.bgi линкуется к ехе (и шрифты), а если это с pasом провернуть...

← →
Anatoly Podgoretsky (2002-07-02 19:07) [18]

RV (02.07.02 18:02)
В коммерческих продуктах так и поступаю, что бы искходники не потерять.

← →
MBo (2002-07-02 19:19) [19]

>Malder
Зачем ссылочку, придумать же интереснее

← →
Malder (2002-07-02 19:47) [20]

А все таки хотелось бы ссылочку

← →
MBo (2002-07-02 20:23) [21]

Malder
Я не встречал

← →
Blackweber (2002-07-02 22:21) [22]

uses crt;
var s:string;i:integer;
begin
clrscr;
s:="uses crt;@var s:string;i:integer;@begin@clrscr;@for i:=1 to 208 do@ begin@ if i=48 then begin writeln; write("+#39+
+"s:=,#39,s,#39,#59); end;@ if s[i]=#64 THEN WRITELN;@ write(s[i])@ end;@readln;@end.";
for i:=1 to 208 do
begin
if i=48 then begin writeln; write("s:=",#39,s,#39,";"); end;
if s[i]=#64 THEN begin WRITELN;inc(i); end;
write(s[i]);
end;
readln;
end.

← →
Malder (2002-07-02 22:49) [23]

Blackweber, неправильно.
Не выдается например inc(i)
и еще по мелочи...
Кто еще что-нибудь скажет ?

← →
Blackweber (2002-07-03 00:15) [24]

А тебе никак не переделать эту "идею" или тебе готовый код подать?

← →
MBo (2002-07-03 06:29) [25]

>Malder
dpr

{$APPTYPE CONSOLE}var s:string;
i:byte;
begin s:="{$APPTYPE CONSOLE}var s:string;i:byte;begin s:=;for i:=1 to 168 do begin if s[i]=#59 then writeln(s[i]) else write(s[i]);if i=49 then writeln(#39+s+#39) end;readln;end.";
for i:=1 to 168 do begin if s[i]=#59 then writeln(s[i]) else write(s[i]);
if i=47 then write(#39+s+#39) end;
readln;
end.

Осмысл Найти похожие ветки