Помогите пожалуйста запихнуть музу в крэк.

| Сообщение посчитали полезным:

Ну возьми да запихни.
Спрашивай конкретно что надо.

| Сообщение посчитали полезным:

Вообще

| Сообщение посчитали полезным:

Посмотри исходника на асме - www.wasm.ru/src/4/minifmod.zip

| Сообщение посчитали полезным:

TiTBiT
Мля, чел ShellExecute на Дельфе заюзать не может никак, а ты ему исходники на асме предлагаешь...

| Сообщение посчитали полезным:

А у него будет музыкальный вирус.
Он будет под музыку запускать 5000 калькуляторов =)))
И еще крякать что-нить по пути =)

| Сообщение посчитали полезным:

Да, нужно чела запомнить. А то запостит топик:Смотрите, какой я кряк заделал музыкальный, а там вирус на 5000 блокнотов

| Сообщение посчитали полезным:

Ara пишет:
Мля, чел ShellExecute на Дельфе заюзать не может никак, а ты ему исходники на асме предлагаешь...
Хз че он там творит.. а посмотреть все равно полезно...

| Сообщение посчитали полезным:

Да я смотрю эти слова как раз в тему...........
Отягощенная национальным говнистым характером; бездействующая, абсолютно
пассивная; наезжающая на всех и вся; скучная, совершенно неинтересная;
деструктивная и злая в душе. И это -- в отличие от западной сцены, которая
мне, честно говоря, куда более приятна. Все дело в людях, друзья мои. На
убогом основании не вырасти умному человеку; злобный гопник никогда не
изменится. Исходя из этого, прогноз такой: в ближайшее время из
российской сцены "выйдут" намного меньше вирмэйкеров, чем из западной, а
значит на запад и следует ориентироваться в изысканиях нового знания и
распространении своих идей.

Розы не растут в помойке. Go West!

Z0MBiE
hxxp://z0mbie.host.sk

| Сообщение посчитали полезным:

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

здесь не благотворительная организация экстрасенсов.
гугль и яндекс в руки.
читать и думать. .. если можешь

| Сообщение посчитали полезным:

dMNt
Участник
" наезжающая на всех и вся; скучная, совершенно неинтересная;
деструктивная и злая в душе."

"здесь не благотворительная организация экстрасенсов. "
Да, тут я вижу стали глумиться над народом, подловато. Народ лучше в Яндекс будет ходить, для поиска инфы, тратя на это гоооораздо больше времени, к сожалению, а общаться будут в аське, чем выслушивать оскорбления и глумление в форуме, "папаш- старичков", да к модеров. Неслыхано.

| Сообщение посчитали полезным:

А Kot ведь прав! Суть какая получается? Посмотрите все какой я крутой и попробуй до меня дорасти? Один обратился за помощью, так его - в гугл, другой - еще куда. Так нахрена тогда этот сайт? БлЯстать кто круче? Сами - то начинали когда ни о пакерах ни о протекторах и слыхом не слыхивали! Так постепенно и росли. На новую защиту - новый кряк. А молодым сейчас как угнаться? Он из асма - то знает 90 да ЕВ а уже лезет аспр снимать. Нахрена тогда этот форум? Сделали бы ссылку на гугл и порядок! В разделе скачать ссылки на васм и на кулички!
Сам помню как приходилось буквально по крохам собирать все и сколько сил и времени на это ушло.
Вы сайт-то для кого делаете? Для себя или для новичков?
Лучше б кто считает себя крутым - набрал бы себе команду учеников, а там и глянули бы - какое поколение вырастет.

| Сообщение посчитали полезным:

-=Grey=- пишет:
Вы сайт-то для кого делаете? Для себя или для новичков?
Я что ссылку не дал... изучай

| Сообщение посчитали полезным:

> а там вирус на 5000 блокнотов

Интересно на каком по счёту винда повиснет ;)

| Сообщение посчитали полезным:

Никто не хочет затестить сабж ;)))

format PE GUI 4.0
entry start

include '%fasminc%\win32a.inc'


section '.code' code readable executable

align 4
start:
xor esi, esi
mov ebx, 5000
align 4
@@:
mov [StartupInfo.cb], STARTUPINFO
invoke CreateProcess, esi, szCommandLine, esi, esi, esi, NORMAL_PRIORITY_CLASS,\
esi, esi, StartupInfo, ProcessInfo
test eax, eax
jz @exit

invoke CloseHandle, [ProcessInfo.hThread]
invoke CloseHandle, [ProcessInfo.hProcess]
dec ebx
jnz @B
@exit:
invoke ExitProcess, esi


section '.data' data readable writeable

StartupInfo STARTUPINFO
ProcessInfo PROCESSINFO
szCommandLine db 'C:\WINDOWS\notepad.exe',0


section '.idata' import data readable

library kernel32,'KERNEL32.DLL'
include '%fasminc%\APIA\KERNEL32.INC'

| Сообщение посчитали полезным:

Совсем уж в крайнем случае:
1. Использовать функцию PlaySound - она умеет играть
.wav файлы.
PlaySound ("name.wav", NULL, SND_FILENAME | SND_ASYNC);
Этот пример приводится в книге Ч. Петзолд
"Программирование для WIN95". стр 23.
Если неохота таскать за собой файл, можно внести
его в ресурсы и каждый раз записывать его во временный файл.


| Сообщение посчитали полезным:

tum
и каждый раз записывать его во временный файл.

Не нужно!!!
invoke PlaySound, OFFSET cry, NULL, SND_MEMORY or SND_NOWAIT or SND_SYNC
будет проигрывать из памяти

| Сообщение посчитали полезным:

Asterix пишет:
mov ebx, 5000
invoke CreateProcess
dec ebx


| Сообщение посчитали полезным:

Asterix
Как использовать эти параметры dwX,dwY,dwXSize,dwYSize?
Так не работает:
[code]
.data
szAppName db "\NOTEPAD.EXE", 0
AppPath db MAX_PATH dup(0)
_si STARTUPINFO < 0, \ ;cb
0, \ ;lpReserved
0, \ ;lpDesktop
0, \ ;lpTitle
10, \ ;dwX
10, \ ;dwY
100,\ ;dwXSize
50, \ ;dwYSize
0, \ ;dwXCountChars
0, \ ;dwYCountChars
0, \ ;dwFillAttribute
STARTF_USESHOWWINDOW or STARTF_USEPOSITION or STARTF_USESIZE,\;dwFlags
SW_SHOWNOACTIVATE > ;wShowWindow
_pi PROCESS_INFORMATION <>

.code
start:
invoke GetWindowsDirectory, addr AppPath, sizeof AppPath
invoke lstrcat, addr AppPath, addr szAppName
mov _si.cb, sizeof STARTUPINFO

invoke CreateProcess, NULL, addr AppPath, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, \
NULL,NULL, addr _si, addr _pi
[/code]

| Сообщение посчитали полезным:

RideX
> Как использовать эти параметры dwX,dwY,dwXSize,dwYSize?

Откуда эти странные параметры ;)

Ты это хотел?

format PE GUI 4.0
entry start

include '%fasminc%\win32a.inc'


section '.code' code readable executable

align 4
start:
mov edi, sBuff
invoke GetWindowsDirectory, edi, 260
test eax, eax
jz @exit
invoke lstrcat, edi, szFileName
test eax, eax
jz @exit
xor esi, esi
mov ebx, 5000
align 4
@@:
mov [StartupInfo.cb], STARTUPINFO
invoke CreateProcess, esi, edi, esi, esi, esi, NORMAL_PRIORITY_CLASS,\
esi, esi, StartupInfo, ProcessInfo
test eax, eax
jz @exit
invoke CloseHandle, [ProcessInfo.hThread]
invoke CloseHandle, [ProcessInfo.hProcess]
dec ebx
jnz @B
@exit:
invoke ExitProcess, esi


section '.data' data readable writeable

szFileName db '\notepad.exe',0

section '.udata' readable writeable

StartupInfo STARTUPINFO
ProcessInfo PROCESSINFO
sBuff rb 260


section '.idata' import data readable

library kernel32,'KERNEL32.DLL'
include '%fasminc%\APIA\KERNEL32.INC'

| Сообщение посчитали полезным:

Кстати, раз никто протестить не решился , скажу, что вин9х не в состоянии запустить даже 100 notepad'ов нормально, а если запустить приведенную здесь прогу в свободное плавание(без отладчика), то вин98 наглухо виснет, не реагируя ни на какие нажатия кроме Reset.

| Сообщение посчитали полезным:

Я на своём компе проверил работоспособность такого кода:

for(i=0; i<5000; i++)
{
ShellExecute(NULL, "open", "c:\windows\notepad.exe", NULL, NULL, SW_SHOW);
}

Не знаю сколько запустилось ноутпадов, но дальше пошли сплошные access violation ) Потом всё это дело легко закрылось ;)

| Сообщение посчитали полезным:

Ну почитать всё, так можно подумать- чел музыкально-блокнотный маньяк
Sanya
Вообще, я незнаю как и чем помочь... исходник вряд-ли поможет...
Есть такие функции:
(1) mciSendString и (2)PlaySound. #1 может играть музыку в формате midi, wav и mp3. Чтобы с ними ознакомиться - лучше ЯндеХа нет лучшего помошника, т.к. я описания этих ф-й нашел именно так и сохранил куда-то в глубины винта.
Есть ещё библиотека minifmod (*.xm). Ссылку уже дали. там есть пример.
Sanya пишет:
Помогите пожалуйста запихнуть музу в крэк.
Запихнуть - это только 1/3 дела. надо потом её доставать и воспроизводить. Запихнуть можно в ресурсы и в отдельную секцию файла (можно и в секцию данных). Более по твоему вопросу сказать ничего немогу.

-----
Я медленно снимаю с неё UPX... *FF_User*

| Сообщение посчитали полезным:

Sanya, забей на калькуляторы, даешь файло с мусором в массы!

| Сообщение посчитали полезным:

Если внимательно почитать доки на PlaySound
можно увидеть, что она играет музыку в том числе
прямо из "ресурсов"


| Сообщение посчитали полезным:

Ага.
Про MCI можно почитать на
www.firststeps.ru,
раздел VC++, "шаг 90"


| Сообщение посчитали полезным:

Блин !
Саня - там же,
www.firststeps.ru
VC++, шаг 148 текст твоей программы.


| Сообщение посчитали полезным:

Asterix пишет:
Откуда эти странные параметры ;)
Они в структуре STARTUPINFO есть, это положение и размер окна, но что-то не получается их задать, чтобы это сработало

| Сообщение посчитали полезным:

RideX
Они в структуре STARTUPINFO есть, это положение и размер окна, но что-то не получается их задать, чтобы это сработало

Ну и, вроде проблем же нет, приаттачил прогу,
которая запускает 5-ть notepad'ов с заданными параметрами окна, вот ее исходник:
----------------------------------------------


format PE GUI 4.0
entry start

include '%fasminc%\win32a.inc'


section '.code' code readable executable

align 4
start:
mov edi, sBuff
invoke GetWindowsDirectory, edi, 260
test eax, eax
jz @exit
invoke lstrcat, edi, szFileName
test eax, eax
jz @exit
xor esi, esi
mov ebx, 5
align 4
@@:
invoke CreateProcess, esi, edi, esi, esi, esi, NORMAL_PRIORITY_CLASS,\
esi, esi, StartupInfo, ProcessInfo
test eax, eax
jz @exit
invoke CloseHandle, [ProcessInfo.hThread]
invoke CloseHandle, [ProcessInfo.hProcess]
dec ebx
jnz @B
@exit:
invoke ExitProcess, esi


section '.data' data readable writeable

szFileName db '\notepad.exe',0
StartupInfo:
cb dd sizeof.STARTUPINFO
lpReserved dd NULL
lpDesktop dd NULL
lpTitle dd NULL
dwX dd 5
dwY dd 5
dwXSize dd 400
dwYSize dd 300
dwXCountChars dd 0
dwYCountChars dd 0
dwFillAttribute dd 0
dwFlags dd STARTF_USESHOWWINDOW or STARTF_USEPOSITION or STARTF_USESIZE
wShowWindow dw SW_SHOW
cbReserved2 dw 0
lpReserved2 dd NULL
hStdInput dd 0
hStdOutput dd 0
hStdError dd 0


section '.udata' readable writeable

ProcessInfo PROCESSINFO
sBuff rb 260


section '.idata' import data readable

library kernel32,'KERNEL32.DLL'
include '%fasminc%\APIA\KERNEL32.INC'



_1901898469__notepad_loader.EXE

| Сообщение посчитали полезным:

RideX
Кстати, что-то действительно прога не устанавливает параметры окна при запуске в win2к, в win98 всё пашет..

| Сообщение посчитали полезным: