Jump to content
xisto Community

xsize

Members
  • Content Count

    29
  • Joined

  • Last visited

Posts posted by xsize


  1. Unpack ASPack. >>>>>>>how fiend OEP begin the code of ASPack004A4000 60 PUSHAD004A4001 E8 00000000 CALL HC.004A4006----?push key F7 or F8 traceor in Olly after PUSHAD, dump the ESI register and set Hardware breakpoint on Dword push F9---->end the code ASPack code:004A4197 61 POPAD007063BF C3 RETN this RET code, show where our OEP.Make memory dump to disk... it's all... nearlyuse PEtools or imprec16 for restore programm import table


  2. My Second Perl Programm

    The Simple counter...
    u must create the file:
    counter.dat

    [br]#!/usr/bin/perl[/br]#counter.cgi[br][/br]urldecode{[br] local($val)=@_;[/br] $val=~s/\+/ /g;[br] $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;[/br] return $val[br]}[/br]$dataf:='couner.dat';[br]open(F,"+<$dataf") || die "can't open file counter.dat";[/br]flock(F,$LOCK_EX);[br][/br]@cnt=<F>;[br]$Dat=@cnt[/br]$ip=$ENV('REMOTE_ADDR');[br][/br]($count,$ip)=split(/\s+/,@Dat);[br]$count++;[/br]$Dat=join(' ',$count,$ip);[br]fseek(F,0,0);[/br]print F "$Dat";[br]truncate(F,tell(F));[br][/br]flock(F,$LOCK_UN);[/br]close(F);[br][/br]print "Content-Type: text/html\n\n";[br]print "<HTML><BODY><CENTER><small>";[/br]print "$Dat";[br]print "<\small><\CENTER><\BODY><HTML>";[/br]


  3. My 3th Perl Programm

    The current dir show...

    [br]#!/usr/local/bin/perl[br][/br]# dir path [/br]$sdir='.';[br]opendir(DIR,$sdir) || die "can't opendir $some_dir: $!";[/br]@dots = grep {-d "$sdir/$_"} readdir(DIR);[br]rewinddir(DIR);[/br]@fils = grep {-f "$sdir/$_"} readdir(DIR);[br]foreach (@dots){[/br] print "$_\n";[br]}[/br]foreach (@fils){[br] print "$_\n";[br]}[/br]closedir DIR;[/br]


  4. View all information abaut web host:

    [br]#!/usr/bin/perl[/br]#down.cgi[br][/br]use CGI qw(param);[br]use CGI::Carp qw(fatalsToBrowser);[br][/br]print "Content-Type: text/html\n\n";[/br]print "<html><body>";[br]print "Script_name: $ENV{'SCRIPT_NAME'}<br>\n";[/br]print "S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n";[br]print join("<br>",map("$_=$ENV{$_}",keys %ENV));[/br]print "</body></html>";

×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.