in reply to digest::SHA1 problem

How does this script fail? What is sent?

Replies are listed 'Best First'.
Re^2: digest::SHA1 problem
by Anonymous Monk on Feb 10, 2015 at 19:28 UTC
    this code was give to me by the vendor, & when using it, it comes back from the server with an error saying it does not match what was sent?? any help would be greatly appreciated. This is the complete sample code: 
    use LWP::UserAgent;
use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
 
$sourcekey = 'Your_source_key_here';
$pin = '1234';
$command = 'cc:sale';
$amount = '5.50';
$invoice = '123123';
 
# Generate Hash
$seed = rand();
$prehash = $command . ":" . $pin . ":" . $amount . ":" . $invoice . ":
+" . $seed;
$hash = 's/' . $seed . '/' . sha1_hex($prehash) . '/n';
 
 
$ua = LWP::UserAgent->new;
$res = $ua->post('https://sandbox.usaepay.com/gate.php', [
    'UMkey' => $sourcekey,
    'UMhash' => $hash,
    'UMname' => "Example Tester",
    'UMcard' => "4444555566667779",
    'UMexpir' => "0113",
    'UMcvv2' => "999",
    'UMamount' => $amount,
    'UMinvoice' => $invoice,
    'UMstreet' => "1234 Main Street",
    'UMzip' => "12345",
    'UMcommand' => $command
]);
 
 
print "\n\nresult: ".$res->content;
print "\n";

    [download]
[reply]
[d/l]
      What I get is 'UMerror=Specified source key not found.' what is totally acceptable because of 
      $sourcekey = 'Your_source_key_here';

      [download]
[reply]
[d/l]
        try this key: _66w9ht2bJ0b5WGMiI34GSqvpxfQKHVN & Pin: 2345
[reply]

In Section Seekers of Perl Wisdom