Студентам с вопросами о лабораторных работах сюда

Спасибо, вот этой формулы мне и не хватало.

 

Добрый день. Скажите, как на TASM32 сделать скриншот и сохранить в формате *.bmp, *.jpg и т.д. Если можно, с подсказками. Заранее благодарю.

 

Под Windows на FASM`е можно так

Код (Text):

1. format PE GUI 4.0
2. entry start
3.  
4. include 'windows.inc'
5.  
6. section '' code readable writeable
7.   start:
8.   xor    esi,esi
9.   invoke GetDC,esi
10.   mov    [DC],eax
11.   invoke GetDeviceCaps,eax,DESKTOPHORZRES
12.   mov    [width],eax
13.   invoke GetDeviceCaps,[DC],DESKTOPVERTRES
14.   mov    [height],eax
15.   mov    ebx,eax
16.   mul    [width]
17.   shl    eax,2
18.   mov    [rastersize],eax
19.   add    eax,54
20.   mov    [filesize],eax
21.  
22.   invoke VirtualAlloc,esi,[rastersize],MEM_COMMIT,PAGE_READWRITE
23.   mov    [Buffer],eax
24.  
25.   mov    edi,[Buffer]
26.   @@:xor esi,esi
27.      @a: invoke GetPixel,[DC],esi,ebx
28.          bswap  eax
29.          shr    eax,8
30.          stosd
31.          inc    si
32.          cmp    esi,[width]
33.      jne @a
34.      dec bx
35.   jne @b
36.  
37.   invoke GetCurrentDirectory,1024,filename
38.   mov    dword[filename+eax],'\1.b'
39.   mov    word[filename+eax+4],'mp'
40.   invoke CreateFile,filename,GENERIC_WRITE,ebx,ebx,CREATE_ALWAYS,ebx,ebx
41.   mov    [hfile],eax
42.   invoke WriteFile,eax,BMP,54,DC,ebx
43.   invoke WriteFile,[hfile],[Buffer],[rastersize],DC,ebx
44.   invoke CloseHandle,[hfile]
45.   invoke VirtualFree,[Buffer],[rastersize],MEM_DECOMMIT
46.   invoke ExitProcess,ebx
47.  
48. DC       rd 1
49. hfile    rd 1
50. Buffer   rd 1
51. filename rb 1024
52.  
53. BMP:
54.    signature    db 'BM'
55.    filesize     dd 0
56.    reserved     dd 0
57.    rasteroffset dd 54
58.    headersize   dd 40
59.    width        dd 0
60.    height       dd 0
61.    planes       dw 1
62.    depth        dw 32
63.    compression  dd 0
64.    rastersize   dd 0
65.    horres       dd 0
66.    verres       dd 0
67.    colors       dd 0
68.    basecolors   dd 0
69.  
70. section '' import data readable writeable
71.  
72.   library kernel,'KERNEL32.DLL',\
73.           user,'USER32.DLL',\
74.           gdi,'gdi32.dll'
75.  
76.   import kernel,\
77.          VirtualAlloc,'VirtualAlloc',\
78.          VirtualFree,'VirtualFree',\
79.          CreateFile,'CreateFileA',\
80.          WriteFile,'WriteFile',\
81.          CloseHandle,'CloseHandle',\
82.          GetCurrentDirectory,'GetCurrentDirectoryA',\
83.          ExitProcess,'ExitProcess'
84.  
85.   import user,\
86.          GetDC,'GetDC'
87.  
88.    import gdi,\
89.          GetDeviceCaps,'GetDeviceCaps',\
90.          GetPixel,'GetPixel'

Но вызывать GetPixel width*height раз не дзенно.

 

Max_Cohen
PrintScreen

 

А ещё можно эмулировать нажатие PrintScreen

Код (Text):

1.   xor    esi,esi
2.   invoke GetSystemMetrics,SM_CXFULLSCREEN
3.   mov    [width],eax
4.   invoke GetSystemMetrics,SM_CYFULLSCREEN
5.   mov    [height],eax
6.   mov    ebx,eax
7.   mul    [width]
8.   shl    eax,2
9.   mov    [rastersize],eax
10.   add    eax,54
11.   mov    [filesize],eax
12.   invoke VirtualAlloc,esi,[rastersize],MEM_COMMIT,PAGE_READWRITE
13.   mov    [Buffer],eax
14.   invoke keybd_event,VK_SNAPSHOT,45h,KEYEVENTF_EXTENDEDKEY,esi
15.   invoke keybd_event,VK_SNAPSHOT,45h,KEYEVENTF_EXTENDEDKEY+KEYEVENTF_KEYUP,esi
16.   invoke OpenClipboard,esi
17.   invoke GetClipboardData,CF_BITMAP
18.   invoke GetBitmapBits,eax,[rastersize],[Buffer]
19.   call   [CloseClipboard]
20.   invoke GetCurrentDirectory,1024,filename
21.   mov    dword[filename+eax],'\1.b'
22.   mov    word[filename+eax+4],'mp'
23.   invoke CreateFile,filename,GENERIC_WRITE,esi,esi,CREATE_ALWAYS,esi,esi
24.   mov    [hfile],eax
25.   invoke WriteFile,eax,BMP,54,reserved,esi
26.   invoke WriteFile,[hfile],[Buffer],[rastersize],rastersize,esi
27.   invoke CloseHandle,[hfile]
28.   invoke VirtualFree,[Buffer],[rastersize],MEM_DECOMMIT
29. ret

 

Люди помогите плиз, короче тема следущая:
Существует прога (неважный аспект), она защищена прогой регистрашкой, нужно сделать так, чтоб она могла бы работать без неё, побольше об этом расписать и рассказать мне, сам занимаюсь усердно данным вопросом, очень нужно для диплома! всё сделано на дельфях, исходник естественно препод не дал, иначе нет смысла ломать! Мне нужно описать как взломать и чем ему накасячить можно, принимаю любые более менее разумные решения) Заранее огромное спасибо!!!
Правда очень сильно нужно!!!

 

alfer

Код (Text):

1. Executable modules, item 0
2.  Base=00400000
3.  Size=0007F000 (520192.)
4.  Entry=0046571C key_gene.<ModuleEntryPoint>
5.  Name=key_gene
6.  Path=I:\F1\key_generator.exe
7.  
8. 00463130 <GenerateRegistrationID>
9. 00463E8C <GenerateAuthorizationId>

 

Здравствуйте,

Есть массив из 32 байт(значения любые), я беру поочередно 2 байта и складываю между собой. Если значение, которое я получаю - отрицательное, мне необходимо перевести его в беззнаковое. Т.е. не просто изменить знак числа.

Не тупо же складывать с 65535, помойму там в особых случаях надо прибавлять битик ?

Выразился конечно коряво, буду рад любым ссылкам.

 

Noga
То есть нужно взять модуль числа

 

Mikl___

murder

Сорри запутал всех, я имел ввиду если получаю значение из массива (2байта) и оно отрицательное, то мне надо привести его к беззнаковому.

 

Код (Text):

1. mov edi,arr
2. mov ecx,16
3. @@:movsx eax,word[edi]
4.    cdq
5.    xor   ax,dx
6.    sub   ax,dx
7.    stosw
8. loop @b

 

Есть простая задача:
Написать программу для вычитания между собой двух переменных (Х и У). Если результат меньше либо равно 50, то необходимо умножить его на 10, если же больше то разделить на 5. (Используя команды условного и безусловного перехода).
Помогите с решением.

 

(z = x - y) <= 50 ? z *= 10 : z /= 5;

 

Теперь то же самое, только на ассемблере plz!