#!/usr/bin/perl # # Script which uses openssl to encrypt Paypal buy buttons and other # transactions. # # Copyright 2005 by Gray Watson # # Permission to use, copy, modify, and distribute this software for # any purpose and without fee is hereby granted, provided that the # above copyright notice and this permission notice appear in all # copies, and that the name of Gray Watson not be used in advertising # or publicity pertaining to distribution of the document or software # without specific, written prior permission. # # Gray Watson makes no representations about the suitability of the # software described herein for any purpose. It is provided "as is" # without express or implied warranty. # # The author may be contacted via http://256stuff.com/gray/ # More details: http://256stuff.com/gray/docs/paypal_encrypt/ # use FileHandle; use IPC::Open2; use strict; # private key file to use my $MY_KEY_FILE = "sample_key.pem"; # public certificate file to use - should match the $cert_id my $MY_CERT_FILE = "sample_cert.pem"; # Paypal's public certificate that they publish on the Profile > # Website-Certificate page. Default is to use the sandbox cert. my $PAYPAL_CERT_FILE = "paypal_sandbox_cert.pem"; # File that holds extra parameters for the paypal transaction. my $MY_PARAM_FILE = "params.txt"; # path to the openssl binary #my $OPENSSL = "/usr/bin/openssl"; #my $OPENSSL = "C:\\OpenSSL\\Bin\\openssl.exe"; my $OPENSSL = "/usr/local/bin/openssl"; # make sure we can execute the openssl utility die "Could not execute $OPENSSL: $!\n" unless -x $OPENSSL; ############################################################################### # Send arguments into the openssl commands needed to do the sign, # encrypt, s/mime magic commands. This works under FreeBSD with # OpenSSL '0.9.7e 25 Oct 2004' but segfaults with '0.9.7d 17 Mar # 2004'. It also works under OpenBSD with OpenSSL '0.9.7c 30 Sep # 2003'. my $pid = open2(*READER, *WRITER, "$OPENSSL smime -sign -signer $MY_CERT_FILE " . "-inkey $MY_KEY_FILE -outform der -nodetach -binary " . "| $OPENSSL smime -encrypt -des3 -binary -outform pem " . "$PAYPAL_CERT_FILE") || die "Could not run open2 on $OPENSSL: $!\n"; # Write our parameters that we need to be encrypted to the openssl # process. open(PARAMS, "< $MY_PARAM_FILE") || die "Could not open '$MY_PARAM_FILE': $!\n"; while () { chomp; next if (m/^\#/ || m/^$/); print WRITER "$_\n"; } close(PARAMS); # close the writer file-handle close(WRITER); # read in the lines from openssl my @lines = ; # close the reader file-handle which probably closes the openssl processes close(READER); # combine them into one variable my $encrypted = join('', @lines); ############################################################################### # print our html page with the encrypted blob in the middle print qq[ Sample.html

Donate

];