Вверх ↑
Ответов: 28
Рейтинг: 14
#1: 2011-09-28 12:53:23 ЛС | профиль | цитата
ключик, не приобретенный, а получен по акции, подойдет ко всем "кисам" кроме старых 6и7. срок жизни 12 мес. + около месяца транспортный запас = макс 13 мес. (P/S в чёрный список не попадет 100%)

Что требуется:
1. Программа открывает файл (СДЕЛАНО)
2. Конвертирует в шестнадцатеричный вид (СДЕЛАНО, но возможно не до конца)
3. После нажатия кнопки PATCH в тело файла добавляются с заменой другие байты-даные (НЕИЗВЕСНО КАК!!!)
4. Файл сохраняется измененным.
5. Программа выдает сообщение - пропатчено (это не сложно)
ВСЁ!

то что сделано (быстро)



Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,84,98)
{
Width=487
Height=350
Name="PATCH"
Caption="patch"
BorderStyle=1
Position=1
}
Add(FileStream,6390214,231,196)
{
link(onLoad,5293226:doConvert,[(310,202)(310,237)(219,237)(219,272)])
}
Add(Button,14562768,63,196)
{
Left=355
Top=15
Width=65
Caption="Открыть"
link(onClick,16358020:doExecute,[])
}
Add(ODialog,16358020,119,196)
{
Filter=".bin|*.bin*"
Title="Открыть"
FileName=".bin"
link(onExecute,9079063:doEvent1,[])
}
Add(Edit,9609289,98,315)
{
Left=80
Top=15
Width=255
Text=""
}
Add(Hub,9079063,175,196)
{
link(onEvent1,6390214:doOpen,[])
link(onEvent2,9609289:doText,[(201,209)(201,265)(86,265)(86,321)])
}
Add(StreamConvertor,5293226,231,266)
{
Symbol=""
Point(Position)
Point(CheckSum)
link(onResult,2753155:doAdd,[(293,272)(293,279)])
link(Data,6390214:Stream,[])
}
Add(Memo,2753155,322,273)
{
Left=20
Top=50
Width=315
Height=250
ScrollBars=2
Point(onKeyUp)
Point(onKeyDown)
Point(onChar)
Point(onShow)
Point(onHide)
Point(onResize)
}
Add(Label,4392244,28,21)
{
Left=15
Top=20
Width=45
Caption="Файл"
}
Add(InfoTip,4192787,315,231)
{
Info=#23:редактор текста не нада|26:(добавлен для наглядности)|0:|
Font=[MS Sans Serif,8,1,0,1]
Width=204
Height=165
}
Add(Message,16462326,441,497)
{
Message="Пропатчено"
}
Add(Button,13094214,343,497)
{
Left=350
Top=80
Width=75
Height=50
Caption="PATCH"
link(onClick,16462326:doMessage,[])
}
Add(InfoTip,2628668,301,448)
{
Info=#17:то, что требуется|10:????? :(|
Font=[MS Sans Serif,8,1,0,1]
Width=204
Height=165
}

Буду рад если кто-то еще поможет, и также отблагодарю ключиком
карма: 0

0