If you can access the fields from the form then you can do the lot in Perl:

use Digest::MD5 qw(md5);

sub validate_form {
   my $password= shift;
   my $token = shift;

   return MD5 (MD5 ($password) . $token);
}
[download]