in reply to Re: peeking at the working interpreter
in thread peeking at the working interpreter

The -d option is disabled when you use the decrypt template from the Filter module at CPAN. At least this seems to be safe from the perl debugger. This is is the code that does the disabling on the decrypt.xs file: 
#ifdef DEBUGGING
    /* Don't run if compiled with DEBUGGING */
    croak("recompile without -DDEBUGGING") ;
#endif

. . .

/* make sure the Perl debugger isn't enabled */
if( PL_perldb )
    croak("debugger disabled") ;

[download]

Replies are listed 'Best First'.
RE: RE: Re: peeking at the working interpreter
by t0mas (Priest) on Sep 06, 2000 at 19:35 UTC
    The -d option is disabled when you use the decrypt template from the Filter module at CPAN

    Good move.

    Try hitting it with perl -MO=Deparse file.pl and see what you get. Deparse uses the internal compiled structure, maybe you'll get lucky? with that. I don't know if you'll be able to run the B:: modules without the debugger (I've never compiled perl without it) so I'm just guessing here :)

    /brother t0mas
[reply]
      Here's what I get with Deparse: 
      [C:/TEMP] perl -MO=Deparse not_encrypted.pl
print "hello world\n";

...

[C:/TEMP] perl -MO=Deparse encrypted.pl
Aborting, Compiler detected at d:/Claudio/Perl/lib/DynaLoader.pm line 
+219.
Compilation failed in require at encriptado.pl line 1.
BEGIN failed--compilation aborted at encriptado.pl line 1.

      [download]
      This is the code in the decrypt.xs template that cares for this: 
          /* Check for the presence of the Perl Compiler */
    if (gv_stashpvn("B", 1, FALSE))
        croak("Aborting, Compiler detected") ;

      [download]
      Thanks for the help!
[reply]
[d/l]
[select]
        It seems they've been thinking a bit :)

        If I where your customer, I would now have to disassemble your perl.exe and try to reverse engineer your decrypt algorithm the usual way, or pay the $60K USD...

        /brother t0mas
[reply]

In Section Seekers of Perl Wisdom