Use another language to call a function: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,128: / Line 2,128: @@
 <lang asm>
 option casemap:none
+strlen  proto :qword
+strncpy proto :qword, :qword, :dword
 Query   proto :qword, :qword
@@ Line 2,136: / Line 2,140: @@
 .code
 Query proc Data:qword, len:qword
+  local d:qword, l:qword, s:dword
-  mov r9, Data
+  mov d, Data
-  mov r8, len
+  mov l, len
-  mov r10d, sizeof(szstr)
+  invoke strlen, addr szstr
-  cmp r10, r8
+  .if rax <= l
+    mov s, eax
-  ja _err
+    invoke strncpy, d, addr szstr, s
-  mov ecx, r10d
-  mov rdi, r9
+    mov eax, s
-  mov rsi, offset szstr
+    mov rax, l
+    mov dword ptr [rax], ecx
-  rep movsb
-  mov rax, r8
+    mov rax, 1
+    ret
-  mov dword ptr [rax], r10d
+  .endif
-  mov eax, 1
+  mov rax, 0
   ret
+Query endp
+</lang>
+===NASM===
+<lang asm>
+section .data
+szmsg     db "Here I am",0
+section .text
+  global Query
-  _err:
+  strlen:
-    mov rax,0
+    push rbp
+    mov rbp, rsp
+    mov rsi, rdi
+    mov rcx, -1
+    _1:
+      inc rcx
+      cmp byte [rsi+rcx], 0
+      jne _1
+      mov rax, rcx
+    pop rbp
     ret
-Query endp
+  Query:
-end
+    push rbp
+    mov rbp, rsp
+    ;;mov r9, rcx             ;;Arg 1, windows
+    ;;mov r8, rdx             ;;Arg 2, windows
+    mov r9, rdi             ;;Arg 1, Linux
+    mov r8, rsi             ;;Arg 2, Linux
+    lea rdi, szmsg
+    call strlen
+    cmp rax, r8
+    jg _err
+    mov r10d, eax
+    mov rdi, r9
+    lea rsi, szmsg
+    rep movsb
+    mov rax, r8
+    mov dword [rax], r10d
+    jmp _exit
+    _err:
+      mov rax, 0
+    _exit:
+      pop rbp
+      ret
 </lang>