#!/usr/bin/perl # подключение стандартного модуля для кодирования подписи # standard module for coding the signature use Digest::MD5 qw(md5_hex); # регистрационная информация (логин, пароль #1) # registration info (login, password #1) my $mrh_login = "beatencars"; my $mrh_pass1 = "1478569fdnjhbntn"; # номер заказа # number of order my $inv_id = 1; # описание заказа # order description my $inv_desc = "Взнос на депозит пользователя"; # сумма заказа # sum of order my $out_summ = "3000"; # тип товара # code of goods my $shp_item = "2"; # предлагаемая валюта платежа # default payment e-currency my $in_curr = "PCR"; # язык # language my $culture = "ru"; # формирование подписи # generate signature my $crc = md5_hex("$mrh_login:$out_summ:$inv_id:$mrh_pass1". ":Shp_item=$shp_item"); # форма оплаты товара # payment form print "Content-type: text/html\n\n"; print <

EOF