Hello,
I need help in converting following perl script functions into php, can anyone pls?
sub Encrypt {
my ($source,$key,$ pub_key) = @_;
my ($cr,$index,$ch ar,$key_char,$e nc_string,$enco de,$first,
$second,$let1,$ let2,$encrypted ,$escapes) = '';
$source = &rot13($source) ;
$cr = 'ยทยจ*';
$source =~ s/[\n\f]//g;
$source =~ s/[\r]/$cr/g;
...
zishan
Last Activity: Mar 17 '07, 02:35 AM
Joined: Feb 28 '07
Location:
-
Perl to PHP conversion
I needed help in converting following perl function into php:
sub texttool {
$tool =~ tr/A-Z/a-z/;
@tool = split(/ /, $tool);
foreach $word(@tool) {
$tit1 = $word;
$tit2 = $word;
$tit1=(($tit1=~/(.{0,1})/) ? $1 : '');
$tit2 = reverse $tit2;
chop($tit2);
$tit2 = reverse $tit2;
$tit1 =~ tr/a-z/A-Z/;
$word = "$tit1$tit2 ";
}
$tool = join('...
No activity results to display