Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

RE: (jcwren) RE: YES! I do

by AgentM (Curate)
on Oct 29, 2000 at 09:19 UTC ( [id://38978]=note: print w/replies, xml ) Need Help??


in reply to (jcwren) RE: YES! I do
in thread Obfuscate my perl code

i was always one for a challenge:

perhaps this is a newbie asm question but I always thought al/ah were 8 bit registers- is this my old asm experience talking? could it be the "new" intel "standards". hmmmmm....well, I've seen stranger Mac asm, so, for the challenge, I'll assume 24 bit registers, I guess....

I just followed my thoughts through- here they are:

  • and al,00fh: sets first 16 bits of al to 0, last 8 bits are left as they were
  • add al,090h: adds one gross (144=9*16) to al, which makes al now 09x where x is from the original set
  • daa: decimal adjust after addition: changes al to a packed decimal number stored in hex- results in 90+x as decimal packed into hex
  • adc al,040h: adds dest to src and carry flag, too: (90h+xh)+40h
  • daa: like (90+40)+x=130+x packed BCD

hmmm, can this be right? probably not, oh well. I find it amusing that CISC processing leads to infinite obfuscation- much more than perl could ever achieve. (www.assemblymonks.org?)

/me decides that perl is better than assembly.

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://38978]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (6)
As of 2024-03-29 09:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found