обработка подписи WM

[Volkoff007]

обработка подписи WM

Здравствуйте,
Помогите написать функцию, которая будет проверять подпись при оплате услуг через WM...

Она выгледет примерно так sign = md5(pci_wmtid+WMID+md5(Upper(url+purse+amount+desc+mode))+pci_pursesrc+pci_pursedest+pci_amount+pci_desc+pci_datecrt+mode+md5(passwd))

Хотелось бы узнать как это дело перевести в PHP

П.С. Поиском пользовался, не помагло...

 

[Tor]

md5(pci_wmtid+WMID+md5(Upper(url+purse+amount+desc+mode))+pci_pursesrc+pci_pursedest+pci_amount+pci_desc+pci_datecrt+mode+md5(passwd))

замени "+" на " . "

 

[Solid]

Upper - опять Delphi?

 

[AmdY]

function CheckMD5($payee_purse, $payment_amount, $payment_no, $secret_key)
{
$key = $payee_purse . $payment_amount . $payment_no;
$key .= $this->mode . $this->sys_invs_no . $this->sys_trans_no;
$key .= $this->sys_trans_date . $secret_key . $this->payer_purse;
$key .= $this->payer_wm;
if ($this->hash == strtoupper(md5($key)))
{
return WM_RES_OK;
}
return WM_RES_FAIL;
}