php - 比较 PERL md5() 和 PHP md5()-6ren

php - 比较 PERL md5() 和 PHP md5()

转载作者：行者123 更新时间：2023-12-02 06:25:03

我所有的应用程序都是用 PHP 编写的，bar 1 脚本恰好创建了一个 md5 散列，稍后通过 PHP 脚本使用。问题是它们不匹配。

PERL:

#$linkTrue = 'http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php'
md5_hex($linkTrue);

出于测试目的，我在 PHP 中做了这个:

echo md5("http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php");

两者都返回不同的值。有谁知道这是为什么吗？

编辑:整个 PHP 脚本

<?php

echo md5("http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php");

?>

完整的 PERL 脚本(抱歉太长了)

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
require LWP::UserAgent;
sub trim($);
use DBI;
use Net::FTP;
use Digest::MD5 qw(md5 md5_hex md5_base64);

print "Content-type: text/html\n\n";
print "<html>\n<head>\n</head><body>\n";

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->max_redirect(0);

#my %get = ();
#for (split /\&/, $ENV{'QUERY_STRING'}) { my ($key, $val) = split /=/; $val =~ s/\+/ /g; $val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; $get{$key} = $val; }
#my %post = ();
#for (split /\&/, <STDIN>) { my ($key, $val) = split /=/; $val =~ s/\+/ /g; $val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; $post{$key} = $val; }
my %get = ('findAllPages' => 'true' );
my %post = ('ki' => '############################' );


sub trim($){
   my $string = shift;
   $string =~ s/^\s+//;
   $string =~ s/\s+$//;
   return $string;
}
sub extention {
   my($data) = @_;
   if( substr( trim($data), -1) eq "/" ){
      my @extArray = ('.html', '.php', '.htm', '.asp', '.shtml', '.aspx');
      foreach(@extArray){
         my $ext = $_;
         my $testResponse = $ua->get('http://' . trim($data . "index" . $ext));
         my $testResponseCode = $testResponse->code;
         if( $testResponseCode == 200 || $testResponseCode == 301 || $testResponseCode == 302 ){
            return trim($data . "index" . $ext);
            last;
         }
      }
   }else{
      return $data;
   }
}
if( defined( $get{findAllPages} ) && defined( $post{ki} ) ){
   my ($database, $hostname, $port, $password, $user );
   $database = "##########";
   $hostname = "############";
   $password = "##########";
   $user = "#########";
   my $KI = $post{ki};
   # connect to the database
   my $dsn = "DBI:mysql:database=$database;host=$hostname;";
   my $dbh = DBI->connect($dsn, $user, $password);
   my $sth = $dbh->prepare("SELECT * FROM accounts WHERE KI = '$KI' ") or die "Could not select from table" . $DBI::errstr;
   $sth->execute(); 
   if( $sth->rows != 0 ) {
      my $ref = $sth->fetchrow_hashref();
      my $domain = $ref->{website};
      my $DB_username = $ref->{db_name};
      my $DB_password = $ref->{db_pass};
      my $DB_ftpuser = $ref->{ftpuser};
      my $DB_ftppass = $ref->{ftppass};
      my $DB_ftpserver = $ref->{ftpserver};
      $sth->finish();
      $dbh->disconnect();

      chomp(my $url = trim($domain));
      # try and find  full path
      sub findFullPath {

         my($link, $landingPage) = @_;

         # strip ./ and / from beggining of string
         $link =~ s/^(?:(?:\/)|(?:\.\/))//g;

         # find out whether link is backtracing to previous folder
         if( $link =~ m/^\.\.\// ) { # link desination is back tracing

            if( $landingPage =~ m/(?:(?:\.html)|(?:\.php)|(?:\.htm)|(?:\.asp)|(?:\.shtml)|(?:\.aspx))$/g ) {
               # find destination folder from landing page
               my @folders = split( "/", $landingPage );    
               #find size of array
               my $foldersSize = scalar @folders;
               delete $folders[$foldersSize - 1];
               $foldersSize = scalar @folders;
               my @backFolders = ( $link =~ m/\.\.\//g ); # get rid of ../
               my $amountOfBackFolders = scalar @backFolders; # find how many folders back
               for( my $x=0; $x < $amountOfBackFolders; $x++ ) {
                  my $numberToDelete = ($foldersSize - 1) - $x;
                  delete $folders[$numberToDelete];
               }
               $landingPage = join( "/", @folders );
               $link =~ s/\.\.\///g;
               return $landingPage . "/" . $link . "\n";
            } elsif( $landingPage =~ m/(?:\/)$/g ) {
               my @folders = split( "/", $landingPage );    
               #find size of array
               my $foldersSize = scalar @folders;
               delete $folders[$foldersSize - 1];
               $foldersSize = scalar @folders;
               my @backFolders = ( $link =~ m/\.\.\//g ); # get rid of ../
               my $amountOfBackFolders = scalar @backFolders; # find how many folders back
               for( my $x=0; $x < $amountOfBackFolders; $x++ ) {
                  my $numberToDelete = ($foldersSize) - $x;
                  delete $folders[$numberToDelete];
               }
               $landingPage = join( "/", @folders );
               $link =~ s/\.\.\///g;
               return $landingPage . "/" . $link . "\n";
            } else {

            }

         }else{
            if( substr( $landingPage, -1) eq "/" ){
               return $landingPage . $link;
            }else{
               my @splitLandingPage = split( "/", $landingPage );
               my $amountSplit = scalar @splitLandingPage;
               my $toDelete = $amountSplit - 1;
               my $lastEntry = $splitLandingPage[$toDelete];
               if( $lastEntry =~ m/(?:(?:com)|(?:co\.uk)|(?:net)|(?:org)|(?:cc)|(?:tv)|(?:info)|(?:org\.uk)|(?:me\.uk)|(?:biz)|(?:name)|(?:eu)|(?:uk\.com)|(?:eu\.com)|(?:gb\.com)|(?:gb\.net)|(?:uk\.net)|(?:me)|(?:mobi))$/g ) {
                  return join( "/", @splitLandingPage ) . "/" . $link . "\n";
               }else{
                  delete $splitLandingPage[$toDelete];
                  return join( "/", @splitLandingPage ) . "/" . $link . "\n";
               }
            }
         }
      }

      # get HTTP details
      my $response = $ua->get('http://' . trim($url));
      my $responseCode = $response->code;
      my $responseLocation = $response->header( 'Location' );

      # contintue only if status code is 200 or 301
      if( $responseCode != 200 && $responseCode != 301 && $responseCode != 302 ){
          print "<span class=\"red\"> error: http://" . trim($url) . "Domain name invalid, please use differnet domain name: http status - " . $responseCode . "</span><br />\n";
          die;
      }

      # change url if domain status eq 301
      if( $responseCode == 301 || $responseCode == 302 ){
         if($response->header( 'Location' ) =~ m/^http:\/\/www\./g ) {
            $url = substr( $response->header( 'Location' ), 11 );
         }elsif($response->header( 'Location' ) =~ m/^http:\/\//g ) {
            $url = substr( $response->header( 'Location' ), 7 );
         }else{
            $url = findFullPath($response->header( 'Location' ), $url);
         }
      }

      my @pagesArray = ($url);
      my @pagesScannedArray;
      my @mainPagesArray;
      my @pagesNotScanned;
      my $z = 0;

      #print "\nGethering all valid links from " . $domain . "...\n\n";

      while ( @pagesArray && $z < 100 ) {
         # get the next in queue for proccessing
         my $page = trim(shift @pagesArray);
         if( ! grep {$_ eq trim($page)} @pagesNotScanned ) {
            # check page http status
            $response = $ua->get("http://" . trim($page));
            $responseCode = $response->code;
            if( $responseCode == 200 || $responseCode == 301 || $responseCode == 302 ){
               # change page url if 301 redirect
               if( $responseCode == 301 || $responseCode == 302 ){
                  if($response->header( 'Location' ) =~ m/^http:\/\/www\./g ) {
                     $page = substr( $response->header( 'Location' ), 11 );
                  }elsif($response->header( 'Location' ) =~ m/^http:\/\//g ) {
                     $page = substr( $response->header( 'Location' ), 7 );
                  }else{
                     $page = findFullPath($response->header( 'Location' ), $url);
                  }
               }
               # connect to page and get contents
               if( my $pageData = get "http://" . trim($page) ) {
                  # get all links on page
                  my @pageLinksArray = ( $pageData =~ m/href=["']([^"']*)["']/g );
                  # foreach link on the page
                  foreach( @pageLinksArray ) {
                      my $link = trim($_);
                     # remove url if located on same domain
                     $link =~ s/(?:http:\/\/)?(?:www\.)?$url//g;
                     # if link is format we are looking for
                     if( $link =~ m/(?:(?:\.html)|(?:\.php)|(?:\.htm)|(?:\.asp)|(?:\.shtml)|(?:\.aspx)|(?:\/))$/ ) {
                        # if link is outbound
                        if( $link =~ m/^http:\/\//g ) {
                           if( ! grep {$_ eq trim($link)} @pagesNotScanned ) {
                              if( ! grep {$_ eq trim($page)} @mainPagesArray ) {
                                 push ( @pagesNotScanned, trim($link) );
                              }
                           }
                        }else{
                           # find full path for link
                           my $newUrl = &findFullPath(trim($link), trim($page));
                           # if link has not already been claimed to be a main page
                           if( ! grep {$_ eq trim($newUrl)} @mainPagesArray ) {
                              # if link is not already in queue
                              if( ! grep {$_ eq trim($newUrl)} @pagesArray ) {
                                 push ( @pagesArray, trim($newUrl) );
                              }
                           }
                        }
                     }
                  }
                  if( ! grep {$_ eq trim($page)} @mainPagesArray ) {
                     push ( @mainPagesArray, trim($page) );
                  }
               }
            }else{
               if( ! grep {$_ eq trim($page)} @pagesNotScanned ) {
                  if( ! grep {$_ eq trim($page)} @mainPagesArray ) {
                     push ( @pagesNotScanned, trim($page) );
                  }
               }
            }
         }
         $z++;
      }

      if( scalar @mainPagesArray != 0 ) {
         my ($database, $hostname, $port, $password, $user );
         $database = $DB_username;
         $hostname = "###########";
         $password = $DB_password;
         $user = $DB_username;

         # connect to the database
         my $dsn = "DBI:mysql:database=$database;host=$hostname;";
         my $dbh = DBI->connect($dsn, $user, $password) or die " error: Couldn't connect to database: " . DBI->errstr;

        print "\nTesting links' extentions from " . $domain . "...\n\n";

        my $root;
        my $ftp = Net::FTP->new($DB_ftpserver, Debug => 0) or die "Cannot connect to some.host.name: $@";
        $ftp->login($DB_ftpuser, $DB_ftppass) or die "Cannot login ", $ftp->message;
        my @list = $ftp->dir;
        if( scalar @list != 0 ) {
            foreach( @list ){
                if( $_ =~ m/((?:www)|(?:public_html)|(?:htdocs))$/g ){
                    $root = $1;
                    last;
                }
            }
        }
        if( $root eq "" ) {
            print "error: could not identify root directory.<br />\n";
            die;
        }

        foreach( @mainPagesArray ) {
            my $webpage = &extention(trim($_));
            if( trim($webpage) ne trim($domain) ){
                my $webpageQuote = $dbh->quote("http://www." . $webpage);
                my $sth = $dbh->prepare("SELECT * FROM page_names WHERE linkTrue = $webpageQuote ") or die "Could not select from table" . $DBI::errstr;
                $sth->execute(); 
                if( $sth->rows == 0 ) {
                    print "http://www." . $webpage . "<br />\n";
                    my $linkTrue = $dbh->quote("http://www." . $webpage);
                    my $string = ($webpage =~ s/^$domain//g);
                    my $linkFromRoot = $dbh->quote($root . $webpage);
                    my $page_name = $dbh->quote("");
                    my $table_name = $dbh->quote(md5_hex(trim($linkTrue)));
                    my $navigation = $dbh->quote("");
                    my $location = $dbh->quote("");
                    $dbh->do("INSERT INTO page_names (linkFromRoot, linkTrue, page_name, table_name, navigation, location) VALUES ( $linkFromRoot, $linkTrue, $page_name, $table_name, $navigation, $location )") or die " error: Couldn't connect to database: " . DBI->errstr;
                }
            }
         }
      }else{
         print "<span class=\"red\"> error: No pages where found. This CMS is designed for pre-existing sites. Please contact support for more information.</span><br />\n";
      }
   }else{
      print "<span class=\"red\"> error: input key incorrerct.</span><br />\n";
   }
}else{
   print "<span class=\"red\"> error: This area is forbidden please locate back to www.plugnplaycms.co.uk</span><br />\n";
}

print "</body>\n</html>";

我相信它在第 274 行。代码可能很乱，但它是我的第一个 perl 脚本，只用了一个星期。

我知道了。 $dbh->quote() 在值周围添加单引号。

最佳答案

当我尝试时，两个程序都返回 a4cbeef10b3c6d44ca30d96370619eef

我觉得您没有向我们展示全部情况。向我们展示导致此问题的代码。特别是检查换行符。你在 perl 脚本中使用过 chomp 吗？

自己试试吧。这是我使用的完整 php 脚本:

<?php
echo md5("http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php");
?>

这是我使用的完整 perl 脚本:

#!/usr/bin/perl
use Digest::Perl::MD5 'md5_hex';

$linkTrue = 'http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php';
print md5_hex($linkTrue);

编辑:

如果这两个脚本没有为 md5 返回那个值呢？那是有错误的那个。记录您传递给 md5 的值(在前面使用“[”，在后面使用“]”来检测额外的空格)。该值是否符合您的预期？

编辑 2:

看起来你找到了，对吧？这是单引号。这:

print md5_hex("'http://www.themobilemakeover.co.uk/mobile-makeover-appointment-booking-signup.php'");

注意额外的引号。上面一行给我:486c944b10ef539aa7ba4bfe607861f2

关于php - 比较 PERL md5() 和 PHP md5()，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/2212670/

文章推荐： regex - 这个上下文无关文法是正则表达式吗？

文章推荐： azure - sqlpackage.exe 用于忽略 DevOps 发布管道中的特定架构

文章推荐： sql - 为什么 Oracle SQL 不允许我们在条件中使用别名？

javascript - Angular Material - md-toolbar 内的 md-tabs。 md-toolbar 中其他元素旁边的 md-tabs
我想在 md-toolbar 中使用 mf-tabs，我使用 Sithdown 在 https://github.com/angular/material/issues/1076 中提供的解决方案它
angular - 如何在服务的 md-table 中实现 md-paginator 和 md-sort？
我是新手，我设法用服务提供的数据实现了我的 md-table。现在我正在尝试实现过滤器、排序和分页功能，但我认为我做错了什么。这是我的组件: import { Component, OnInit,
javascript - 在 md-dialog 中选择事件的 md-tab md-tab-group
我必须打开一个 md-dialog，其中包含一个带有两个选项卡的 md-tab-group。 md-dialog 可以从两个按钮打开，这两个按钮应该打开相应的选项卡。打开 md-dialog 的模板:
javascript - 如何修复 md-tabs 和 md-toolbar 以及滚动 md-content？
我正在尝试做这样的事情: {{item}}
javascript - 如何动态设置 Angular Material md-datepicker 指令的 md-min-date/md-max-date？
我正在尝试使用 md-datepicker 遍历一个月的时间间隔，因此我创建了这个 codepen 示例以便更好地演示: http://codepen.io/anon/pen/ygBGOg 当单击“P
css - 如何使用 Angular Material 确保边距相等？ (md-grid-list md-grid-tile md-rowspan)
这是关于 Codepen 的例子. 我正在设置 md-row-height="30px" 然后计算 md-rowspan 使其等于元素数 + 1。(头部加一) {{ t
javascript - 当我使用 Angular md-selected 索引频繁切换选项卡时，多个 'md-tab' 同时具有 'md-active' 类
当我频繁切换 md-tabs 时，Md-tabs 切换正确但多个 md-tab-item 元素同时具有“md-active”类，所以我看不到选项卡的内容是事件的，因为它与其右侧选项卡的内容重叠。据我
css - 在 Material VueJS 的上使用和样式未对齐
我想将操作放在同一数据行上，我有两个操作，为此我使用按钮和图标作为下面的代码。 {{item.codigo}} {{it
angularjs - 具有多个 md-二级操作的 md-list
在我的对象列表中，我可以激活/非事件对象。因此，一个图标执行事件操作，另一个图标执行非事件操作，并且两者都在同一个 md-list 中。 This is what i'm tring to do 代码
angularjs - md-autocomplete 中的 md-on-demand
如前所述 Angular-Material md-autocomplete's documentation : The md-autocomplete uses the the md-virtual-
html - 带有 md 虚拟中继器的 md 子标题行为不正常
我也在使用 Angular 1 和 Angular Material 。我想在 ng-repeat 中使用 md-subheader 和多个 md-virtual-repeat-container。您
javascript - 为什么 md 工具提示不适用于 md 虚拟选项卡
我正在使用 Angular Material 。当我创建自己的指令并将其添加到 md-tab-label 时，例如 Label 然后自定义指令也应用于一些“md-dummy-tab”。但是
angularjs - md-select 检查 md-options 中重复选项的标准是什么
我在我的项目中使用 Angular Material 有一段时间了。在使用 md-select 时，我遇到了一个问题，即出现重复的 md-option 值错误。我知道 md-options 采用唯一
angularjs - md-autocomplete md-require-match 在动态设置表达式时不起作用
我正在根据单选按钮选择设置自动完成验证 md-require-match = true/false。默认验证是 md-require-match = true 这样用户应该从自动完成列表中选择一个项
git - 如何将 readme.md 重命名为 README.md？
这个问题在这里已经有了答案: Changing capitalization of filenames in Git (11 个答案) 关闭 3 年前。我使用“readme.md”创建了我的存储库
Github 在 README.md 中包含 md 文件吗？
Github有办法吗？在例如 README.md 中包含 md 文件？ # Headline Text [include](File:load_another_md_file_here.md) 它不应
javascript - 将 md-switch 转换为 md-select
我正在使用 AngularJs 开发这个动态过滤系统，并试图找出如何将 color 和 size 选项转换为在两个下拉列表中(每个类别一个)。我尝试了以下代码，该代码成功添加了下拉列表以及选择框中的
angularjs - md-selected 在 md-tab 中无法正常工作
var app = angular.module('tabsDemo', ['ngMaterial']); app.controller('TabsController',tabsController
angularjs - md-select 在 md-tab 中带有搜索输入
在 md-tab 指令内嵌套 md-select 和搜索输入时遇到问题。有两个问题: 选择框展开后，必须向上滚动才能查看搜索输入搜索输入实际上不接受任何文本我做了一个codepen为了更好地说明
angularjs - md-chips 不与 md-autocomplete 一起使用
我正在尝试处理这个片段，其中自动完成功能嵌入在芯片中。但从自动完成中选择的项目不会转换为筹码。自动完成的数据采用以下方式:{name:"John Doe", id:"1"} 哪里错了，请指教。问候

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

php - 比较 PERL md5() 和 PHP md5()