1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl
#require "r_asm.pm";
require "r2/r_asm.pm";
sub disasm {
my ($a, $arch, $op) = @_;
print("---\n");
print("OPCODE: $op\n");
$a->use ($arch);
print("ARCH: $arch\n");
my $code = $a->massemble ($op);
if (defined($code)) {
my $buf = r_asmc::RAsmCode_buf_hex_get ($code);
print "HEX: $buf\n";
} else {
print("HEX: Cannot assemble opcode\n");
}
}
my $a = new r_asm::RAsm();
$a->list();
disasm ($a, 'x86.olly', 'mov eax, 33');
disasm ($a, 'java', 'bipush 33');
disasm ($a, 'java', 'invalid opcode');
|
