PHP,适应于上帖简单加密后的密文

复制代码 代码如下:

<?php

//replacement来自上个版本的加密替换

functioncompress_func($match){returnstrlen($match[0]).$match[0]{0};}

functionuncompress_func($match){returnstr_repeat($match[2],$match[1]);}

functioncompress($str){

$i=0;

$pattern=array();

while(isset($replacement{$i}))array_push($pattern,"/".$replacement{$i++}."{2,}/");

returnpreg_replace_callback($pattern,"compress_func",$str);

}

functionuncompress($str){

returnpreg_replace_callback("/(d+)(w)/","uncompress_func",$str);

}

?>

AWK,通用格式

复制代码 代码如下:

#!/bin/awk

functioncompress(str,_ARGVEND_,str_out,str_len,i,s,l){

str_out="";

str_len=length(str);

s="";

l=1;

for(i=1;i<=str_len;i++){

if(substr(str,i,1)==s)l++;

else{

if(s!=""){

if(l>1)str_out=str_out""l

str_out=str_out""s;

}

s=substr(str,i,1);

l=1;

}

}

returnstr_out;

}

functionuncompress(str,_ARGVEND_,str_out,str_len,i,c){

str_out="";

str_len=length(str);

for(i=1;i<=str_len;i++){

c=0;

while(substr(str,i,1)~/[0-9]/){

c=c*10+substr(str,i,1);

i++;

}

if(c<1)c=1;

while(c--)str_out=str_out""substr(str,i,1);

}

returnstr_out;

}