PHP???é￡o?ˉì?í?ò3??ê?PHP3ìDò×?·?′?′|àíoˉêy

<?
//————————
// PHP?ú??×?·?′?oˉêyêμ??
//————————

//×?·?′?3¤?è
function strlen (str)
{
if (str == ” ) return 0;
count = 0;
while (1){
if ( str[count] != NULL){
count++;
continue;
}else{
break;
}
}
return count;
}

//??è?×ó′?
function substr(str, start, length=NULL)
{
if (str== ” || start>strlen(str )) return;
if ((length!=NULL) && ( start>0) && (length> strlen(str)-start)) return;
if (( length!=NULL) && (start< 0) && (length>strlen(str )+start)) return;
if (length == NULL) length = (strlen(str ) – start);

if (start < 0){
for (i=(strlen( str)+start); i<(strlen (str)+start+length ); i++) {
substr .= str[i];
}
}
if (length > 0){
for (i= start; i<(start+length ); i++) {
substr .= str[i];
}
}
if ( length < 0){
for (i =start; i<(strlen( str)+length); i++) {
substr .= str[i ];
}
}
return substr;
}

//×?·?′?·-×a
function strrev(str)
{
if (str == ”) return 0 ;
for (i=(strlen(str)- 1); i>=0; i –){
rev_str .= str[i ];
}
return rev_str;
}

//×?·?′?±è??
function strcmp(s1, s2)
{
if (strlen(s1) < strlen(s2)) return -1 ;
if (strlen(s1) > strlen( s2)) return 1;
for (i =0; i<strlen(s1 ); i++){
if (s1[ i] == s2[i]){
continue;
}else{
return false;
}
}
return 0;
}

//2é?ò×?·?′?
function strstr(str, substr)
{
m = strlen(str);
n = strlen(substr );
if (m < n) return false ;
for (i=0; i <=(m-n+1); i ++){
sub = substr( str, i, n);
if ( strcmp(sub, substr) == 0) return i;
}
return false ;
}

//×?·?′?ì???
function str_replace(substr , newsubstr, str)
{
m = strlen(str);
n = strlen(substr );
x = strlen(newsubstr );
if (strchr(str, substr ) == false) return false;
for ( i=0; i<=(m- n+1); i++){
i = strchr(str, substr);
str = str_delete (str, i, n);
str = str_insert(str, i, newstr);
}
return str ;
}
?>

<?php
//——————–
// ×?êμ??×?·?′?′|àíoˉêy
//——————–

//2?è?ò???×?·?′?
function str_insert(str, i , substr)
{
for(j=0 ; j<i; j ++){
startstr .= str[j ];
}
for (j=i; j <strlen(str); j ++){
laststr .= str[j ];
}
str = (startstr . substr . laststr);
return str ;
}

//é?3yò???×?·?′?
function str_delete(str , i, j)
{
for ( c=0; c<i; c++){
startstr .= str [c];
}
for (c=( i+j); c<strlen (str); c++){
laststr .= str[c];
}
str = (startstr . laststr );
return str;
}

//?′??×?·?′?
function strcpy(s1, s2 )
{
if (strlen(s1)==NULL || !isset( s2)) return;
for (i=0 ; i<strlen(s1); i++){
s2[] = s1 [i];
}
return s2;
}

//á??ó×?·?′?
function strcat(s1 , s2)
{
if (!isset(s1) || !isset( s2)) return;
newstr = s1 ;
for(i=0; i <count(s); i ++){
newstr .= st[i ];
}
return newsstr;
}

//?òμ￥±à??oˉêy￡¨ó?php_decodeoˉêy??ó|￡?
function php_encode(str)
{
if ( str==” && strlen( str)>128) return false;
for( i=0; i<strlen (str); i++){
c = ord(str[i ]);
if (c>31 && c <107) c += 20 ;
if (c>106 && c <127) c -= 75 ;
word = chr(c );
s .= word;
}
return s;
}

//?òμ￥?a??oˉêy￡¨ó?php_encodeoˉêy??ó|￡?
function php_decode(str)
{
if ( str==” && strlen(str )>128) return false;
for( i=0; i<strlen (str); i++){
c = ord(word);
if ( c>106 && c<127 ) c = c-20;
if (c>31 && c< 107) c = c+75 ;
word = chr( c);
s .= word ;
}
return s;
}

//?òμ￥?ó?üoˉêy￡¨ó?php_decryptoˉêy??ó|￡?
function php_encrypt(str)
{
encrypt_key = ‘abcdefghijklmnopqrstuvwxyz1234567890′;
decrypt_key = ‘ngzqtcobmuhelkpdawxfyivrsj2468021359′;
if ( strlen(str) == 0) return false;
for (i=0; i<strlen(str); i ++){
for (j=0; j <strlen(encrypt_key); j ++){
if (str[i] == encrypt_key [j]){
enstr .= decrypt_key[j];
break;
}
}
}
return enstr;
}

//?òμ￥?a?üoˉêy￡¨ó?php_encryptoˉêy??ó|￡?
function php_decrypt(str)
{
encrypt_key = ‘abcdefghijklmnopqrstuvwxyz1234567890′;
decrypt_key = ‘ngzqtcobmuhelkpdawxfyivrsj2468021359′;
if ( strlen(str) == 0) return false;
for (i=0; i<strlen(str); i ++){
for (j=0; j <strlen(decrypt_key); j ++){
if (str[i] == decrypt_key [j]){
enstr .= encrypt_key[j];
break;
}
}
}
return enstr;
}
?>