- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
sub _check_sms_hash {
my $self = shift;
my $q = shift;
my $qs = $q->param('id').$q->param('phone').$q->param('trigger').$q->param('text').$q->param('date').$q->param('check').$self->_sicretsms();
my $hash = $self->{DB}->selectrow_array("SELECT MD5(?)", undef, $qs);
return 1 if $hash eq $q->param('sign');
return 0;
}
LegionDead 01.07.2011 16:30 # −1
Lure Of Chaos 01.07.2011 16:44 # −2
Dummy00001 01.07.2011 21:03 # 0
да и че на CPAN - я уже и не помню когда последний видел перл установленный по умолчанию без md5.
bildja 04.07.2011 16:46 # +2
odmin 09.07.2011 15:35 # −1
Byte 10.10.2011 19:06 # +1
$self->_sicretsms()
в пятой строчке
Govnocoder#0xFF 02.02.2012 19:20 # 0
guest8 09.04.2019 11:06 # −999