اطلاعیه

Collapse
No announcement yet.

#!/usr/bin/perl -w

Collapse
X
 
  • Filter
  • زمان
  • Show
Clear All
new posts

  • #!/usr/bin/perl -w

    با خسته نباشید . خدمت دوستان .

    تو برنامه نویسی پرل . منظور از اینا چیه / ؟ -W و env perl و ...........

    یا بعضی ها

    کد PHP:
     #!/bin/env perl 
    #!d:\perl\bin\perl.exe 
    می خوام بدونم چطوری اینا اجرا میشن . و باید چطوری ازشون استفاده کنیم .

    مثلا این Remote file inclusion scanner

    دوست خوبمون Kernel|2007 تو بخش هک سکیوریتی گذاشته . طرز کارش . از داس که اجرا می کنیم چه دستوری باید بنویسم . سایت مورد نظر را باید کجا بنویسم .


    کد PHP:
          #!/usr/bin/perl -w

    unlink("results.html");
    print 
    "\n \n#Will check a directory for all includes and unsets \n";
    print 
    "#Coded by Ironfist (ironsecurity.nl) \n";
    print 
    "#Usage: create a folder in your perlfolder and put the files to be scanned in it, next type the folder name below (eg myfolder) \n";
    print 
    "#GIVES ERRORS WHEN CHECKING SUBFOLDERS: IGNORE THEM ) \n\n\n";


    print 
    "Directory to read? ";
    $input = <stdin>;
    chop ($input);

    @
    files = <$input/*>;

    foreach $file (@files) {
    print "Checking: " .$file . "\n";


    open(MYINPUTFILE, "$file");
    while(<MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if(($line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print DAT "FOUND: $line in $file
    ";
    close(DAT);

    }
    }
    }
    @files2 = <$input/*/
    *>;
    foreach 
    $file (@files2) {
    print 
    "Checking: " .$file "\n";


    open(MYINPUTFILE"$file");
    while(<
    MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if((
    $line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print 
    DAT "FOUND: $line in $file
    "
    ;
    close(DAT);

    }
    }
    }
    @
    files3 = <$input/*/*/*>;
    foreach 
    $file (@files3) {
    print 
    "Checking: " .$file "\n";


    open(MYINPUTFILE"$file");
    while(<
    MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if((
    $line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print 
    DAT "FOUND: $line in $file
    "
    ;
    close(DAT);

    }
    }
    }
    @
    files4 = <$input/*/*/*/*>;
    foreach $file (@files4) {
    print "Checking: " .$file . "\n";


    open(MYINPUTFILE, "$file");
    while(<MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if(($line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print DAT "FOUND: $line in $file
    ";
    close(DAT);

    }
    }
    }
    @files5 = <$input/*/
    */*/*/*>;
    foreach 
    $file (@files5) {
    print 
    "Checking: " .$file "\n";


    open(MYINPUTFILE"$file");
    while(<
    MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if((
    $line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print 
    DAT "FOUND: $line in $file
    "
    ;
    close(DAT);

    }
    }
    }
    @
    files6 = <$input/*/*/*/*/*/*>;
    foreach 
    $file (@files6) {
    print 
    "Checking: " .$file "\n";


    open(MYINPUTFILE"$file");
    while(<
    MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if((
    $line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print 
    DAT "FOUND: $line in $file
    "
    ;
    close(DAT);

    }
    }
    }
    @
    files7 = <$input/*/*/*/*/*/*/*>;
    foreach $file (@files7) {
    print "Checking: " .$file . "\n";


    open(MYINPUTFILE, "$file");
    while(<MYINPUTFILE>)
    {

    my($line) = $_;

    chomp($line);
    if(($line =~ m/include_once \$/i) || ($line =~ m/require_once \$/i) || ($line =~ m/include_once\(\$/i) || ($line =~ m/require_once\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/require\(\$/i) || ($line =~ m/require \$/i) || ($line =~ m/include \$/i) || ($line =~ m/include\(\$/i))
    {
    open(DAT,">>results.html") || die("Cannot Open File");
    print DAT "FOUND: $line in $file
    ";
    close(DAT);

    }
    }


    Tanx
    (◕‿◕)

  • #2
    w- وقتی بعنوان سوئیچ بیاد یعنی اینکه اخطار ها هم خطا به حساب بیان یعنی warning = error

    کد:
    #!/usr/bin/perl -w
    ولی وقتی قبل از نام یک فایل یا دایکتوری بیاد میشه تشخیص قابلیت نوشتن روی فایل مخفف writable
    مثل
    کد:
    if -W $file
    __________

    ENV% یک هش از قبل تعریف شده حاوی اطلاعات مربوط به راه اندازی سیستم مثل ورژن و ...
    ولی در پایین نام مسیر مفسر پرل هست

    کد:
     #!/bin/env perl  
    #!d:\perl\bin\perl.exe
    اولی در لینوکس و دومی در ویندوز ، با توجه به مسیر

    Comment

    Working...
    X