25 lines
1 KiB
Text
Executable file
25 lines
1 KiB
Text
Executable file
#!/usr/bin/newlisp
|
|
|
|
; this may not run on newer CPUs and definitely only runs in Intel i386
|
|
; runs fine on Mac OSX 10.6 Intel dual core 2 MacMini (2007)
|
|
; does not run on Mac OSX 10.7 Lion dual core 2 MacMini (2007)
|
|
; runs fine on Windows XP 2 Intel dual core 2 and core i5 (2011)
|
|
; will not run on Mac OSX 10.9
|
|
|
|
(set 'foo-code (append
|
|
(pack "bbbbbbbbbb" 0x55 0x8B 0xEC 0x8B 0x45 0x08 0x03 0x45 0x0C 0x5D)
|
|
(if (= ostype "Windows") (pack "bbb" 0xC2 0x08 0x00) (pack "b" 0xC3))))
|
|
(set 'foo print)
|
|
;(cpymem (pack "ld" (if (= ostype "Windows") 265 264)) (first (dump foo)) 4) ; pre v10.3.10
|
|
;(cpymem (pack "ld" (if (= ostype "Windows") 2312 1288)) (first (dump foo)) 4)
|
|
(cpymem (pack "ld" (if (= ostype "Windows") 0x2200 0x2100)) (first (dump foo)) 4)
|
|
(cpymem (pack "ld" (address foo-code)) (+ (first (dump foo)) 12) 4)
|
|
(set 'foo-name "foo")
|
|
(cpymem (pack "ld" foo-name) (+ (first (dump foo)) 8) 4)
|
|
(if (= (foo 3 4) 7)
|
|
(println ">>>>> cpymem testing code implanting SUCCESSFUL")
|
|
(println ">>>>> ERR problem testing code implanting with cpymem")
|
|
)
|
|
|
|
(exit)
|
|
|