TheQueenIsDead #21 9 марта 2012 Все не очень мой xboct въезжаю в иккап опять собрал дагон в аптб? мои вирсутпро + бонус респект таким пацанам как нс, даже проебав тёлку и интерненшл, он продолжает проигрывать ланы в бомжебарах со своей бывшей, а вы и дальше едьте в свои сиетлы и играйте там за миллионы Поделиться сообщением Ссылка на сообщение
wuwku #22 9 марта 2012 Проголосовал за 3 и 6. Богини! Без шуточек. Человек, который смеется над своими неудачами, теряет немало друзей, которые не могут простить ему узурпацию своих законных прерогатив. Г.Л.Менкен http://steamcommunity.com/id/wuwku Поделиться сообщением Ссылка на сообщение
LIKESEX #23 9 марта 2012 Удали не позорься. Ах ты же воин полигона,ну все с тобой ясно Поделиться сообщением Ссылка на сообщение
Kant #24 9 марта 2012 Активнее, ребята, активнее Напоминаю, что наша девушка под номером 7 Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью. Поделиться сообщением Ссылка на сообщение
a1ter #25 9 марта 2012 Прогерши страшные Хотя по ссылке есть нарм) Don't take a shower, we like you dirty Поделиться сообщением Ссылка на сообщение
Kant #28 9 марта 2012 Код или пиздабол .model tiny .code org 100h main: jmp real_start actlen db ? string db 81 dup (0) resstring db 81 dup (0) arrlen db ? indarr db 40 dup (0) lenarr db 40 dup (0) installed dw 8888 old_int21h_offset dw ? old_int21h_segment dw ? installedmsg db "Installed", 10, 13, '$' uninstalledmsg db "Uninstalled", 10, 13, '$' nomemmsg db "Out of memory", 10, 13, '$' noremovemsg db "Error: cannot unload program", 10, 13, '$' clearmsg db "Information cleared", 10, 13, '$' temp db ? new_int21h proc far cmp ah, 9h je intercepted pushf push cs call dword ptr cs:[old_int21h_offset] popf iret intercepted: push ax push bx push cx push dx push di push si push ds push es push cs pop es xor ah, ah xor cx, cx mov si, dx lea di, string new21h_readloop: lodsb cmp al, '$' je new21h_readloop_end stosb ; копируем строку inc cx ; считаем actlen jmp new21h_readloop new21h_readloop_end: mov bx, cx ; в конец вставляем $ mov byte ptr string[bx], '$' push cs pop ds mov actlen, cl ; сохраняем actlen call parsestring call sortstring call makeresstring lea dx, resstring mov ah, 9h pushf push cs call dword ptr cs:[old_int21h_offset] popf pop es pop ds pop si pop di pop dx pop cx pop bx pop ax iret new_int21h endp findword proc ; Поиск слова начиная с ES:DI и макс длиной CX push si cmp cx, 0 je findword_empty ; строки нет - выход xor ax, ax mov al, ' ' cld repe scasb ; проходим начальные пробелы je findword_empty ; слов нет - выход mov si, di ; иначе в SI начало слова repne scasb ; ищем конец слова jne findword_endstr sub di, si ; вычисляем длину слова mov ax, di ; и помещаем в АХ jmp findword_next findword_endstr: ; если конец строки sub di, si mov ax, di inc ax dec cx findword_next: mov di, si ; в DI помещаем начало слова dec di inc cx jmp findword_return findword_empty: mov ax, 0 findword_return: pop si ret findword endp ; возвращает в DI начало слова и в АХ длину слова parsestring proc ; поиск слов и формирование массивов push ax push bx push cx push di xor cx, cx xor bx, bx ; индекс массива lea di, string mov cl, actlen parse_loop: call findword cmp ax, 0 ; проверка на конец je parse_return push ax mov ax, di mov indarr[bx], al ; сохраняем индекс начала слова pop ax mov lenarr[bx], al ; сохраняем длину слова inc bx ; увеличиваем индекс массива add di, ax ; новое начало поиска слова jmp parse_loop parse_return: mov arrlen, bl pop di pop cx pop bx pop ax ret parsestring endp sortstring proc ; сортирует массив по возрастанию push ax push bx push cx push dx push di push si xor bx, bx mov bh, 01h xor ax, ax cmp arrlen, 1 jbe sort_return sort_extloop: lea si, indarr ; задаем начало массива индексов lea di, lenarr ; задаем начало массива длин xor dx, dx ; очищаем флаг mov cl, arrlen ; задаем длину dec cx sort_intloop: mov bl, [si] mov al, [bx] mov bl, [si+1] mov ah, [bx] cmp al, ah jbe sort_next mov ax, [si] ; смена местами индексов mov [si+1], al mov [si], ah mov ax, [di] ; смена местами длин mov [di+1], al mov [di], ah mov dx, 1 ; смена произошла sort_next: inc si inc di loop sort_intloop cmp dx, 1 ; если были смены je sort_extloop sort_return: pop si pop di pop dx pop cx pop bx pop ax ret sortstring endp makeresstring proc push ax push bx push cx push dx push di push si xor ah, ah xor ch, ch mov al, ' ' lea di, resstring ; строка результат mov cl, arrlen ; кол-во шагов цикла lea bx, indarr ; начало массива индексов lea dx, lenarr ; начало массива длин mrs_loop: push cx push bx mov bx, dx mov cl, [bx] pop bx push bx mov bl, [bx] mov si, bx ; откуда копировать pop bx rep movsb stosb pop cx inc bx inc dx loop mrs_loop mov byte ptr[di], '$' pop si pop di pop dx pop cx pop bx pop ax ret makeresstring endp real_start: ; старт основной программы mov ax,3521h ; получить в ES:BX вектор 21h int 21h cmp word ptr es:installed,8888 ; проверка того, загружена ли уже программа je remove mov cs:old_int21h_offset, bx ; запомним старый адрес 21h mov cs:old_int21h_segment, es mov ah, 9h lea dx, cs:installedmsg ; выводим сообщение об установке int 21h mov ax, 2521h ; установим вектор на 21h mov dx, offset new_int21h int 21h lea dx, cs:real_start ; остаемся в памяти резидентом int 27h ; и выходим remove: push es push ds mov dx, es:old_int21h_offset ; возвращаем вектор прерывания mov ds, es:old_int21h_segment ; на место mov ax, 2521h int 21h pop ds pop es mov ah, 49h ; освобождаем память int 21h jc not_removed ; не освободилась - ошибка lea dx, es:uninstalledmsg ; выводим сообщение об удалении mov ah, 9h int 21h jmp exit not_removed: lea dx, noremovemsg mov ah, 9 int 21h jmp exit exit: mov ah, 4Ch ; выход int 21h end main разбирай Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью. Поделиться сообщением Ссылка на сообщение
SPYHunter #32 9 марта 2012 Код или пиздабол .model tiny .code org 100h main: jmp real_start actlen db ? string db 81 dup (0) resstring db 81 dup (0) arrlen db ? indarr db 40 dup (0) lenarr db 40 dup (0) installed dw 8888 old_int21h_offset dw ? old_int21h_segment dw ? installedmsg db "Installed", 10, 13, '$' uninstalledmsg db "Uninstalled", 10, 13, '$' nomemmsg db "Out of memory", 10, 13, '$' noremovemsg db "Error: cannot unload program", 10, 13, '$' clearmsg db "Information cleared", 10, 13, '$' temp db ? new_int21h proc far cmp ah, 9h je intercepted pushf push cs call dword ptr cs:[old_int21h_offset] popf iret intercepted: push ax push bx push cx push dx push di push si push ds push es push cs pop es xor ah, ah xor cx, cx mov si, dx lea di, string new21h_readloop: lodsb cmp al, '$' je new21h_readloop_end stosb ; копируем строку inc cx ; считаем actlen jmp new21h_readloop new21h_readloop_end: mov bx, cx ; в конец вставляем $ mov byte ptr string[bx], '$' push cs pop ds mov actlen, cl ; сохраняем actlen call parsestring call sortstring call makeresstring lea dx, resstring mov ah, 9h pushf push cs call dword ptr cs:[old_int21h_offset] popf pop es pop ds pop si pop di pop dx pop cx pop bx pop ax iret new_int21h endp findword proc ; Поиск слова начиная с ES:DI и макс длиной CX push si cmp cx, 0 je findword_empty ; строки нет - выход xor ax, ax mov al, ' ' cld repe scasb ; проходим начальные пробелы je findword_empty ; слов нет - выход mov si, di ; иначе в SI начало слова repne scasb ; ищем конец слова jne findword_endstr sub di, si ; вычисляем длину слова mov ax, di ; и помещаем в АХ jmp findword_next findword_endstr: ; если конец строки sub di, si mov ax, di inc ax dec cx findword_next: mov di, si ; в DI помещаем начало слова dec di inc cx jmp findword_return findword_empty: mov ax, 0 findword_return: pop si ret findword endp ; возвращает в DI начало слова и в АХ длину слова parsestring proc ; поиск слов и формирование массивов push ax push bx push cx push di xor cx, cx xor bx, bx ; индекс массива lea di, string mov cl, actlen parse_loop: call findword cmp ax, 0 ; проверка на конец je parse_return push ax mov ax, di mov indarr[bx], al ; сохраняем индекс начала слова pop ax mov lenarr[bx], al ; сохраняем длину слова inc bx ; увеличиваем индекс массива add di, ax ; новое начало поиска слова jmp parse_loop parse_return: mov arrlen, bl pop di pop cx pop bx pop ax ret parsestring endp sortstring proc ; сортирует массив по возрастанию push ax push bx push cx push dx push di push si xor bx, bx mov bh, 01h xor ax, ax cmp arrlen, 1 jbe sort_return sort_extloop: lea si, indarr ; задаем начало массива индексов lea di, lenarr ; задаем начало массива длин xor dx, dx ; очищаем флаг mov cl, arrlen ; задаем длину dec cx sort_intloop: mov bl, [si] mov al, [bx] mov bl, [si+1] mov ah, [bx] cmp al, ah jbe sort_next mov ax, [si] ; смена местами индексов mov [si+1], al mov [si], ah mov ax, [di] ; смена местами длин mov [di+1], al mov [di], ah mov dx, 1 ; смена произошла sort_next: inc si inc di loop sort_intloop cmp dx, 1 ; если были смены je sort_extloop sort_return: pop si pop di pop dx pop cx pop bx pop ax ret sortstring endp makeresstring proc push ax push bx push cx push dx push di push si xor ah, ah xor ch, ch mov al, ' ' lea di, resstring ; строка результат mov cl, arrlen ; кол-во шагов цикла lea bx, indarr ; начало массива индексов lea dx, lenarr ; начало массива длин mrs_loop: push cx push bx mov bx, dx mov cl, [bx] pop bx push bx mov bl, [bx] mov si, bx ; откуда копировать pop bx rep movsb stosb pop cx inc bx inc dx loop mrs_loop mov byte ptr[di], '$' pop si pop di pop dx pop cx pop bx pop ax ret makeresstring endp real_start: ; старт основной программы mov ax,3521h ; получить в ES:BX вектор 21h int 21h cmp word ptr es:installed,8888 ; проверка того, загружена ли уже программа je remove mov cs:old_int21h_offset, bx ; запомним старый адрес 21h mov cs:old_int21h_segment, es mov ah, 9h lea dx, cs:installedmsg ; выводим сообщение об установке int 21h mov ax, 2521h ; установим вектор на 21h mov dx, offset new_int21h int 21h lea dx, cs:real_start ; остаемся в памяти резидентом int 27h ; и выходим remove: push es push ds mov dx, es:old_int21h_offset ; возвращаем вектор прерывания mov ds, es:old_int21h_segment ; на место mov ax, 2521h int 21h pop ds pop es mov ah, 49h ; освобождаем память int 21h jc not_removed ; не освободилась - ошибка lea dx, es:uninstalledmsg ; выводим сообщение об удалении mov ah, 9h int 21h jmp exit not_removed: lea dx, noremovemsg mov ah, 9 int 21h jmp exit exit: mov ah, 4Ch ; выход int 21h end main разбирай Хуевый код, так начинающий https://insave.hostinghttps://horhul.me Поделиться сообщением Ссылка на сообщение
CrazyFisher #33 9 марта 2012 проголосовал за 7 мне не жалко [8:12:58] ChpoKun: я с таким виженом в доте 2 маму айсфрога вижу Мой Спаунhttp://www.youtube.com/watch?v=xVjIn9AvPk8 Поделиться сообщением Ссылка на сообщение
wargod^ #34 9 марта 2012 Девушка-программист Вот и завершился наш конкурс! В финальный тур для голосования подписчиков прошли 9 участниц. Победительница получит приз - фотокнигу с лучшими мемами двух пабликов.Всем огромное спасибо за участие! :) можно начинать смеяться ? http://20letbez.su/ Поделиться сообщением Ссылка на сообщение
ClayMan #35 9 марта 2012 на майке хуйня, немного поржал с i like to mov it но потом понял что все равно хуйня там все не очень если честно как то Поделиться сообщением Ссылка на сообщение
xDDDx #36 9 марта 2012 Девушка программист как морская свинка - и не свинка, и не морская... ну хули, на пд обосрать норм, а в рл офк никто и не будет ничего говорить, для этого и нужен пдТУТ КРЫСЫ, СВОЛОЧИ И МРАЗИИНТЕРНЕТ БАНДИТЫ ШОК СИСЬКИ БАННИ Dance Dance Поделиться сообщением Ссылка на сообщение
Anton_Gidropon #40 9 марта 2012 первые мемы были еще ничего, а дальше полилось одно дерьмо что уже только не придумали это как реп на продоте, только мемы Никого не любить - это величайший дар, делающий тебя непобедимым, так как никого не любя, ты лишаешься самой страшной боли. (Адольф Гитлер)Всякий, кто любит одиночество, либо — дикий зверь, либо — Господь Бог. (Фрэнсис Бэкон) Поделиться сообщением Ссылка на сообщение
