主页
Top.Mail.Ru Yandeks.Metrika
论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

理解 找到类似的分支


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 файла которой имел бы смысл?

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



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]

恶魔©(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   (2002-07-02 19:47) [20]

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



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

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



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

使用crt;
var s:string;i:integer;
开始
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.";
为我:= 1到208做
开始
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]);
结束;
readln;
结束。



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

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



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

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



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

>恶魔
dpr

{$APPTYPE CONSOLE}var s:string;
我:字节;
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]);
如果i = 47则写入(#39 + s +#39)结束;
readln;
结束。



Страницы: 1 整个分支

论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上









内存:0.63 MB
时间:0.031 c
1-95399
sergey32
2002-07-16 10:28
2002.07.29
也许是一个愚蠢的问题


1-95343
newone
2002-07-17 11:02
2002.07.29
将宏添加到Excel


14-95515
Raiv
2002-07-02 15:23
2002.07.29
我在哪里可以下载TeeChartPro VCL


3-95222
Tutov罗马
2002-07-08 11:25
2002.07.29
帮助提出请求......


1-95424
方向盘
2002-07-15 19:11
2002.07.29
自动启动Excel





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский