Список говнокодов пользователя chiacorp

Всего: 6

Assembler / Говнокод #28852

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

format pe console
include 'win32a.inc'
         sub esp,256
         mov edi,esp
         xor ebx,ebx
     cinvoke puts,.title
.nxt:cinvoke gets,edi
     cinvoke strlen,eax
        test eax,eax
          jz .ext
         mov ecx,eax
         mov eax,edi
        call hash
        test ebx,ebx
          jz .add
         mov ecx,ebx
         mov edi,esp
       repne scasd
         jnz .add
     cinvoke puts,.yes
     cinvoke sleep,1000
         jmp .nxt
.add:   push eax
         inc ebx
         mov ecx,eax
         mov eax,edi
        call get_hex
         mov eax,edi
     cinvoke puts,edi
         jmp .nxt
.ext:cinvoke exit,0
.title db 'get hash of string',0
.yes db '!!!hash found!!!',0
hash:   push ebx esi
         mov esi,eax
         mov eax,ecx
         xor edx,edx
         mov ecx,4
         div ecx
         mov ecx,eax
         xor eax,eax
         mov ebx,$03020100
.start: test ecx,ecx
          jz .finish
         add eax,[esi]
         add esi,4
         xor eax,ebx
         add ebx,$04040404
        loop .start
.finish:test edx,edx
          jz .exit
         cmp edx,1
          je .exit1
         add ax,[esi]
         xor ax,bx
         cmp edx,2
          je .exit
         add esi,2
         shr ebx,16
       bswap eax
         add ah,[esi]
         xor ah,bl
       bswap eax
         jmp .exit
.exit1:  add al,[esi]
         xor al,bl
.exit:   pop esi ebx
         ret
get_hex:push ebx edi
         mov edi,eax
         mov ebx,.hex
         mov edx,ecx
         mov ecx,4
       bswap edx
         cld
.next:   mov al,dl
         shr al,4
       xlatb
       stosb
         mov al,dl
         and al,$0F
       xlatb
       stosb
         shr edx,8
        loop .next
         xor al,al
       stosb
         mov eax,8
         pop edi ebx
         ret
.hex db '0123456789ABCDEF'
data import
  library msvcrt,'msvcrt.dll'
  import msvcrt,exit,'exit',puts,'puts',sleep,'_sleep',gets,'gets',strlen,'strlen'
end data

Приветствуем любителей накласть.
Понадобился алгоритм для нахождения хэша строки, наклали.
Пихает хэши в стэк и проверяет новые на совпадение со старыми.
У кого есть предложения по его улучшению милости просим!

chiacorp, 20 Сентября 2023

Комментарии (12)

Assembler / Говнокод #27218

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

format PE64 GUI 5.0
include 'win64a.inc'
entry $
   xor    rdi,rdi
   push   rdi
   push   rdi
   push   rdi;$400000
   push   rdi
   push   rdi
   mov    rax,CW_USEDEFAULT
   push   rax
   push   rax
   push   rax
   push   rax
   push   rdi
   push   rdi
   push   rdi
   push   rdi
   mov    r9,WS_VISIBLE+WS_OVERLAPPEDWINDOW
   mov    r8,_title
   mov    rdx,_class
   mov    rcx,rdi
   call   [CreateWindowEx]
   mov    r8,WindowProc
   mov    rdx,-4
   mov    rcx,rax
   call   [SetWindowLongPtrA]
   mov    qword[_title],rax
   pop    rdi
   mov    rsi,rsp
   xor    rbx,rbx
   mov    bl,40
@@:sub    rsp,rbx
   xor    r9,r9
   xor    r8,r8
   xor    rdx,rdx
   mov    rcx,rsi
   call   [GetMessage]
   mov    rcx,rsi
   call   [DispatchMessage]
   add    rsp,rbx
   jmp    @b
WindowProc:
   push   r9
   cmp    rdx,WM_CLOSE
   je     app_close
defwndproc:
   push   rdi
   push   rdi
   push   rdi
   push   rdi
   mov    r9,r8
   mov    r8,rdx
   mov    rdx,rcx
   mov    rcx,qword[_title]
   call   [CallWindowProc]
   pop    rdi
   pop    rdi
   pop    rdi
   pop    rdi
   pop    rdi
   ret
app_close:
   call   [exit]
  _title db '1KBytex64',0
  _class db '#32770',0
data import
  library\
    user32,'USER32.DLL',\
    msvcrt,'msvcrt.dll'
  include 'api\user32.inc'
  import msvcrt,\
    exit,'_exit'
end data

Ничего интересного, просто извращённый 1KBytex64

chiacorp, 17 Января 2021

Комментарии (3)

Assembler / Говнокод #27216

−4

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

format pe console
   include 'win32ax.inc'
macro call1 f,p1{
   mov    ebx,p1
   call   f}
macro call2 f,p1,p2{
   mov    ecx,p2
   call1  f,p1}
macro call3 f,p1,p2,p3{
   mov    edx,p3
   call2  f,p1,p2}
.data
   lead_time dd ?
   handle_input dd ?
   handle_output dd ?
   byte_read_write dd ?
.code
   string db 'govnokod.ru ',13,10,0
   array_procs dd __strlen,_strlen,strlen,0
putdword:;ebx-handle,ecx-byte
   mov    eax,esp
   mov    esi,eax
   sub    esp,16
   xchg   eax,ecx
   mov    edi,10
@@:xor    edx,edx
   div    edi
   add    dl,'0'
   dec    ecx
   mov    [ecx],dl
   test   eax,eax
   jnz    @b
   sub    esi,ecx
   mov    edx,esi
   invoke WriteFile,ebx,ecx,edx,byte_read_write,0
   add    esp,16
   ret
align 4
strlen:;ebx-array of char
   mov    eax,12
   ret
align 4
_strlen:;ebx-array of char
   clc
   xor    ecx,ecx
   dec    ecx
   mov    edi,ebx
   xor    al,al
   repne  scasb
   not    ecx
   dec    ecx
   mov    eax,ecx
   ret
align 4
__strlen:;ebx-array of char
   xor    eax,eax
   dec    eax
@@:inc    eax
   cmp    byte[ebx+eax],0
   jne    @b
   ret
start:
   invoke GetStdHandle,STD_INPUT_HANDLE
   mov    [handle_input],eax
   invoke GetStdHandle,STD_OUTPUT_HANDLE
   mov    [handle_output],eax
   mov    ebp,array_procs
next_step:
   call   [GetTickCount]
   mov    [lead_time],eax
   xor    ecx,
@@:push   ecx
   mov    ebx,string
   call   dword[ebp]
   pop    ecx
   loop   @b
   push   eax
   call   [GetTickCount]
   sub    eax,[lead_time]
   mov    ecx,1000
   xor    edx,edx
   div    ecx
   push   edx
   call2  putdword,[handle_output],eax
   invoke WriteFile,ebx,string+8,1,byte_read_write,0
   pop    ecx
   call2  putdword,[handle_output],ecx
   invoke WriteFile,ebx,string+11,1,byte_read_write,0
   pop    ecx
   call2  putdword,[handle_output],ecx
   invoke WriteFile,[handle_output],string+12,2,byte_read_write,0
   add    ebp,4
   cmp    dword[ebp],0
   jne    next_step
   call   [GetTickCount]
   mov    [lead_time],eax
   invoke SetConsoleMode,[handle_input],0
   invoke ReadFile,[handle_input],byte_read_write,1,byte_read_write,0
   invoke ExitProcess,0
.end start

Поговнокодим однако.
Зачем в процессоре занимают место команды типа repne scasb и прочее, если простые аналоги быстрее компактнее и проще встраивать в алгоритм без отдельной подпрограммы да и регистров в разы меньше требуется. Пустая подпрограмма для понимания сколько времени занимает лишний код. Есть предположение что раньше на заре развития они работали шустрее, но это только предположение.

chiacorp, 15 Января 2021

Комментарии (12)

Assembler / Говнокод #25429

−1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

format pe gui 5.0

include 'win32ax.inc'

  _title db 'stackvar',0
  _class db '#32770',0

entry $
  sub esp,32
  mov esi,esp
  xor edi,edi
  mov ecx,$80000000
  mov eax,WS_VISIBLE+WS_OVERLAPPEDWINDOW
  invoke CreateWindowEx,edi,_class,edi,eax,ecx,ecx,ecx,ecx,edi,edi,edi,edi
  mov ebx,eax
  invoke SetWindowLong,ebx,GWL_WNDPROC,wnd_proc
  mov [esi],eax
  invoke SetWindowLong,ebx,GWL_USERDATA,esi
  invoke SendMessage,ebx,WM_INITDIALOG,edi,edi
  sub esp,32
  mov ebx,esp

msg_loop:
  invoke GetMessage,ebx,edi,edi,edi
  cmp eax,1
  jb app_exit
  jne msg_loop
  invoke DispatchMessage,ebx
  jmp msg_loop

wnd_proc:
  mov eax,[esp+8]
  cmp eax,WM_INITDIALOG
  je app_init
  cmp eax,WM_CLOSE
  je app_exit
  mov eax,[esp+4]
  invoke GetWindowLong,eax,GWL_USERDATA
  pop edx
  push dword [eax]
  push edx
  jmp [CallWindowProc]

app_init:
  mov eax,[esp+4]
  invoke SendMessage,eax,WM_SETTEXT,0,_title
  xor eax,eax
  ret

app_exit:
  invoke ExitProcess,edi

data import
  library\
    kernel32,'kernel32.dll',\
    user32,'user32.dll'
  include 'api\kernel32.inc'
  include 'api\user32.inc'
end data

Извращениям нет предела!
Переменные будем хранить в стэке)

chiacorp, 05 Марта 2019

Комментарии (19)

Assembler / Говнокод #25428

−3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

format pe gui 5.0

include 'win32ax.inc'

  _title db '1Kbyte window',0
  _class db '#32770',0

  old_wndproc dd 0

entry $
  xor edi,edi
  mov ecx,$80000000
  mov esi,$400000
  mov eax,WS_VISIBLE+WS_OVERLAPPEDWINDOW
  invoke CreateWindowEx,edi,_class,edi,eax,ecx,ecx,ecx,ecx,edi,edi,edi,edi
  mov ebx,eax
  invoke SetWindowLong,ebx,GWL_WNDPROC,wnd_proc
  mov [old_wndproc],eax
  invoke SendMessage,ebx,WM_INITDIALOG,edi,edi
  sub esp,32
  mov ebx,esp

msg_loop:
  invoke GetMessage,ebx,edi,edi,edi
  cmp eax,1
  jb app_exit
  jne msg_loop
  invoke DispatchMessage,ebx
  jmp msg_loop

wnd_proc:
  mov eax,[esp+8]
  cmp eax,WM_INITDIALOG
  je app_init
  cmp eax,WM_CLOSE
  je app_exit
  pop eax
  push [old_wndproc]
  push eax
  jmp [CallWindowProc]

app_init:
  mov eax,[esp+4]
  invoke SendMessage,eax,WM_SETTEXT,0,_title
  xor eax,eax
  ret

app_exit:
  invoke ExitProcess,edi

data import
  library\
    kernel32,'kernel32.dll',\
    user32,'user32.dll'
  include 'api\kernel32.inc'
  include 'api\user32.inc'
end data

Приветствуем!
Вот это говнокод однако?
...

chiacorp, 05 Марта 2019

Комментарии (80)

Assembler / Говнокод #25370

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

format pe console 5.0

entry start

include 'win32ax.inc'

SLEEP=1000

section '.data' data readable

  _hello db 'Hello "https://www.govnokod.ru/"!',13,10,0
  _conout db 'CONOUT$',0
  align 8
  _conoutnt du '\??\CONOUT$',0

section '.data?' data readable writeable

  bytes_write dd ?
  houtput dd ?
  length dd ?

section '.text' code readable executable

start:
  call _novice
  invoke Sleep,SLEEP
  call _advanced
  invoke Sleep,SLEEP
  call _psycho
  invoke Sleep,SLEEP
  invoke ExitProcess,0

_novice:
  invoke GetStdHandle,STD_OUTPUT_HANDLE
  mov [houtput],eax
  invoke lstrlen,_hello
  mov [length],eax
  invoke WriteConsole,[houtput],_hello,[length],bytes_write,0
  ret

_advanced:
  invoke CreateFileA,_conout,GENERIC_WRITE,0,0,OPEN_EXISTING,0,0
  mov [houtput],eax
  invoke lstrlen,_hello
  mov [length],eax
  invoke WriteFile,[houtput],_hello,[length],bytes_write,0
  invoke CloseHandle,[houtput]
  ret

_psycho:
  push ebx
  sub esp,40
  mov ebx,esp
  mov word[ebx+24],22
  mov word[ebx+26],24
  mov dword[ebx+28],_conoutnt
  mov dword[ebx+0],24
  mov dword[ebx+4],0
  lea eax,[ebx+24]
  mov dword[ebx+8],eax
  mov dword[ebx+12],$00000040
  mov dword[ebx+16],0
  mov dword[ebx+20],0
  lea eax,[ebx+32]
  invoke NtCreateFile,houtput,$40100080,ebx,eax,0,0,0,1,$60,0,0
  invoke lstrlen,_hello
  mov [length],eax
  lea eax,[ebx+32]
  invoke NtWriteFile,[houtput],0,0,0,eax,_hello,[length],0,0
  invoke NtClose,[houtput]
  add esp,40
  pop ebx
  ret

section '.import' data import readable

  library\
    ntdll,'ntdll.dll',\
    kernel32,'kernel32.dll'

  import ntdll,\
    NtClose,'NtClose',\
    NtCreateFile,'NtCreateFile',\
    NtWriteFile,'NtWriteFile'

  include 'api\kernel32.inc'

section '.reloc' fixups data readable discardable

Интересно какой из методов (_novice, _advanced, _psycho) вывода в консоль является говнокодом?

chiacorp, 10 Февраля 2019

Комментарии (57)

Говнокод: по колено в коде.