#include "stdafx.h"
#ifndef  LUTOOL_CPP
#define  LUTOOL_CPP
//截左右空格
//入口:ss  要截的字符串
//出口:ss  完成后的字符串 
char *  AllTrim( char * ss )
{
	int   i,j;
	int   len;
	len=lstrlen(ss);
	for (i=1;i<len;i++)
	{
		if (ss[len-i]==' ')
			ss[len-i]=0;
		else
			break;
	}
	len=lstrlen(ss);
	for (i=0;i<len;i++)
    	if (ss[i]!=' ')   break;
	for (j=0;j<len-i;j++)
		{
			ss[j]=ss[j+i];
		}
			ss[j]=0;
	return ss;
}

//去除指定的字符
char *  ExChar( char * szSrc , char * pEx )
{
	char Buf[4096];
	char pComp[4096];
	lstrcpy( Buf , szSrc );
	long lLen = lstrlen( Buf );
	long lLen2= lstrlen( pEx );
	int  j =0;
	for ( int i =0 ; i< lLen ; i++ )
	{
		memcpy( pComp , Buf+i , lLen2 );
		pComp[lLen2] = 0;
		if (!lstrcmp( pComp , pEx ) )
		{
			i = i+lLen2-1; //因为for会加1,所以必需先-1
		}
		else
		{
			szSrc[j] = Buf[i];
			j++;
		}
	}
	szSrc[j]=0;
	return szSrc;
}

//查找指定的字符串
int  FoundChar( char * szSrc , char * pEx , long lLen)
{
	char pComp[4096];
	if ( lLen == 0 ) //如果没指定长度，则取原字符串长度
		 lLen = lstrlen( szSrc );
	long lLen2= lstrlen( pEx );
	int  j =0;
	for ( int i =0 ; i< lLen ; i++ )
	{
		memcpy( pComp , szSrc+i , lLen2 );
		pComp[lLen2] = 0;
		if (!lstrcmp( pComp , pEx ) )
		{
			return i+1;
		}
	}
	return 0;
}

//从收的客户的请求中读取数据
//入口参数：szMess     需要分析的源字符串
//          szRec      分析后的返回字符串
//          iNo        分析第N个子参数
//          cMake      根据什么字符分析字串
//出口参数:char *      分析后的字符串,错误将返回NULL 

bool GetReqMess(char *szMess,char *szRec,int iNo,char cMake , long lMessLen) //从收的客户的请求中读取数据
{
	int iTemp;
	int iTemp1;
	int iTempNo;
	iTemp1=0;
	iTempNo=0;
	szRec[0]=0;
	if ( lMessLen <=0 ) lMessLen = lstrlen(szMess);
	for (iTemp=0;iTemp<lMessLen;iTemp++)
	{
		szRec[iTemp1]=szMess[iTemp];
		if (szMess[iTemp]==cMake)
		{
			if (iTempNo==iNo)
			{
				szRec[iTemp1]=0;
				return true;
			}
			iTempNo=iTempNo+1;
			iTemp1=-1;           //因为后面还要加1最后为0
		}
		iTemp1=iTemp1+1;
	}
	return false;
}

BOOL EnCodePasswd( char * szSourse , char * szTarget )
{
	long lSourseLen = lstrlen( szSourse );
	long lCode;
	long i;
	long lRound;
	char szBuf[ 64 ];
	*szTarget = 0;
	lCode = ( lSourseLen + 13 )*7;
	wsprintf( szTarget , "%04X" , lCode );
	wsprintf( szTarget , "" );
	//第一个字符为随机符
	lRound = GetRoundValue('A' , 'Z' );
	sprintf( szBuf , "%c" , lRound );
	lstrcat( szTarget , szBuf );
	for ( i = 0 ; i<lSourseLen ; i++ )
	{
		if ( i%2 == 0 )
		{
			lCode = ( szSourse[ i ] + 9 - i  ) * 4 ;
		}
		else
		{
			lCode = ( szSourse[ i ] + 17 - i  ) * 3 ;
		}
		sprintf( szBuf , "%03X" , lCode );
		lstrcat( szTarget , szBuf );
		lRound = GetRoundValue('A' , 'Z' );
		sprintf( szBuf , "%c" , lRound );
		lstrcat( szTarget , szBuf );
	}
	lCode = 0;
	return true;
}

BOOL DeCodePasswd( char * szSourse , char * szTarget )
{
	long lSourseLen = lstrlen( szSourse );
	if ( lSourseLen < 1 )
	{
		return false;
	}
	long lCode;
	long i;
	char szBuf[ 64 ];
	char *endptr;
	lSourseLen = lSourseLen/4 ;
	szSourse ++ ;   //因为第一个为随机字符，无需
	for ( i = 0 ; i<lSourseLen ; i++ )
	{
		strncpy( szBuf , szSourse , 3 );
		szBuf[ 3 ]=0;
		szSourse = &szSourse[4]; //因为多了一随机字符，无需
		lCode = strtol( szBuf , &endptr , 16 );
		if ( i%2 == 0 )
		{
			szTarget[ i ] = (char)(( lCode / 4 ) -9 + i);
		}
		else
		{
			szTarget[ i ] = (char)(( lCode / 3 ) -17 + i);
		}
	}
	szTarget[ i ] = 0;
	lCode = 0;
	return true;
}

int CharHex(char ch)
{
	//if( isdigit( ch ) ) return( atoi( &ch) );
	if( ch >='0' && ch <= '9' ) return( atoi( &ch) );
	else {
		if( ch == 'a' || ch == 'A' ) return( 10 );
		if( ch == 'b' || ch == 'B' ) return( 11 );
		if( ch == 'c' || ch == 'C' ) return( 12 );
		if( ch == 'd' || ch == 'D' ) return( 13 );
		if( ch == 'e' || ch == 'E' ) return( 14 );
		if( ch == 'f' || ch == 'F' ) return( 15 );
	}
	return( 0 );
}
DWORD StrToHex(const char *pstr, CHAR *hex)
{
	int n = strlen( pstr );
	int i = 0,j = 0;
	for( ;i < n;i ++,j++ ) {
		CHAR ntmp;
		hex[j] = 0;
		ntmp = CharHex( pstr[i] );
		ntmp <<= 4;
		hex[j] += ntmp;
		i ++;
		ntmp = CharHex( pstr[i] );
		hex[j] += ntmp;
	}
	return n/2;
}
void AsciiToHex( char *pszOrgRandom , char *pszDesRandom , long lLen)
{
	char *p = (char *)pszDesRandom;
	//long lLen = lstrlen( (char*)pszOrgRandom);
	for( long i = 0; i < lLen; ++i )
	{
		sprintf(p, "%02X", (BYTE)pszOrgRandom[i] );
		p += 2;
	}
	*p=0;
}

/*
void HexToAscii( char *pszOrgRandom , char *pszDesRandom )
{
	char Buf[4];
	char *pDes = (char *)pszDesRandom;
	char *pOrg = (char *)pszOrgRandom;
	long lLen = lstrlen( pOrg);
	long lTemp;
	for( int i = 0; i < lLen/2; ++i )
	{
		memcpy( Buf , pOrg+i*2 , 2 );
		Buf[2] = 0;
		lTemp = CharHex(Buf[0])*16 + CharHex(Buf[1]);
		if ( i%2 == 1 )
			pDes[i-1] = (char)lTemp; //倒转
		else
			pDes[i+1] = (char)lTemp; //倒转

	}
	pDes[i] = 0;
}
*/

void HexToAscii( char *pszOrgRandom , char *pszDesRandom )
{
	char Buf[4];
	char *pDes = (char *)pszDesRandom;
	char *pOrg = (char *)pszOrgRandom;
	long lLen = lstrlen( pOrg);
	long lTemp;
	for( int i = 0; i < lLen/2; ++i )
	{
		memcpy( Buf , pOrg+i*2 , 2 );
		Buf[2] = 0;
		lTemp = CharHex(Buf[0])*16 + CharHex(Buf[1]);
		pDes[i] = (char)lTemp; 
	}
	pDes[i] = 0;
}

void ExchangeUniCode( char * pData )
{
	char pEx[4];
	long lLen = lstrlen( pData );
	for ( int i = 0 ; i< lLen/4 ; i++ )
	{
		memcpy( pEx , pData+i*4 , 2 );
		memcpy( pData+i*4 , pData+i*4+2 , 2 );
		memcpy( pData+i*4+2 , pEx , 2 );
	}
}

void ExchangeChar( char * pData )
{
	char pEx;
	long lLen = lstrlen( pData );
	for ( int i = 0 ; i< lLen ; i++ )
	{
		pEx = pData[i+1];
		pData[i+1] = pData[i];
		pData[i] = pEx;
		i = i+1 ;
	}
}

void HexToPhoneName( char * pHex , char * pName )
{
	char szName2[4096];
	ExChar( pHex  , "\"");
	long lLen = lstrlen( pHex );
	ExchangeUniCode( pHex );
	HexToAscii( pHex , szName2 );
	long l = WideCharToMultiByte( CP_ACP,NULL,(LPWSTR)szName2 , lLen/4 , pName , 256 , NULL , NULL);
	pName[l] = 0;
}

void PhoneNameToHex( char * pName , char * pHex)
{
	char szName2[4096];
	char szHex2[4096];
	long lLen = lstrlen( pName );
	long l = MultiByteToWideChar( CP_ACP,NULL,pName,lLen, (LPWSTR)szName2 , 4096 );
	szName2[l*2]=0;
	AsciiToHex( szName2  , szHex2 , l*2);
	ExchangeUniCode( szHex2 );
	wsprintf( pHex , "%s" , szHex2 );
}

long TwoCharToHex( char * Buf )
{
	return CharHex(Buf[0])*16 + CharHex(Buf[1]);
}


BOOL GetDeRNFromEnRN(char *pEnRN, char *pDeRN)
{
	char RN[64];
	if ( DeCodePasswd( pEnRN , RN ) )
	{
		long lLen = lstrlen( RN );
		for ( int i =0 ; i<lLen ; i++ )
		{
			pDeRN[i]=~(-RN[i]);
		}
		pDeRN[i]=0;
		return true;
	}
	return false;
}

BOOL GetEnRNFromDeRN(char *pDeRN, char *pEnRN)
{
	char RN[64];
	long lLen = lstrlen( pDeRN );
	for ( int i = 0; i< lLen  ; i++ )
	{
		RN[i] = -(~pDeRN[i]);
	}
	RN[i] = 0;
	return EnCodePasswd( RN , pEnRN );
}

//返回固定区间的随机数
long GetRoundValue(long lMin , long lMax )
{
	long l ;
	long lRec;
	SYSTEMTIME time;
	while (true)
	{
		::GetSystemTime(&time);
		l = time.wMinute*600+time.wHour*6000+time.wSecond*200+time.wMilliseconds;
		l = rand();
		lRec = l%lMax;
		if (lRec >= lMin )
			return lRec;
	}
	return l;
}

//查找指定的标志
int  FoundCharEx( char * szSrc , long lSrcLen , char * pEx , long lExLen)
{
	char pComp[128];
	long lLen = lSrcLen;
	if ( lSrcLen <= 0 ) //如果没指定长度，则取原字符串长度
		 lLen = lstrlen( szSrc );
	long lLen2= lExLen;
	if ( lLen2 <= 0 ) //如果没指定长度，则取原字符串长度
		 lLen2 = lstrlen( pEx );

	int  j =0;
	for ( int i =0 ; i< lLen ; i++ )
	{
		memcpy( pComp , szSrc+i , lLen2 );
		pComp[lLen2] = 0;
		if (!strncmp( pComp , pEx , lLen2) )
		{
			return i+1;
		}
	}
	return 0;
}
//比较两个电话号码是否相同
BOOL StrCmpMobile( char * pNo1 , char * pNo2 )
{
	char szNo1[64];
	char szNo2[64];
	DZStr( pNo1 , szNo1 );  //倒转字符
	DZStr( pNo2 , szNo2 );  
	ExChar( szNo1 , "+" );  //去除+号,国际标志
	ExChar( szNo2 , "+" );
	long lLen1 = lstrlen(szNo1 );
	long lLen2 = lstrlen(szNo2 );
	long lMin = lLen1>lLen2?lLen2:lLen1;
	return !strncmp( szNo1 , szNo2 , lMin );
}
//倒转字符
void DZStr( char * pYChar , char * pDZChar )
{
	long lLen = lstrlen( pYChar );
	for ( int i = 0 ; i< lLen ; i ++ )
	{
		pDZChar[i] = pYChar[lLen-i-1];
	}
	pDZChar[i] = 0;
}

//解开7Bit编码的字串
long DeCode7Bit(char *pSrc, char * pTag , long lSrcLen)
{
	if ( lSrcLen <= 0 )
		lSrcLen = lstrlen( pSrc );
	//long lSrcLen = lstrlen( pSrc );
	unsigned char c,c1;
	unsigned char mask1 = 0;
	unsigned char mask2 = 0;
	long TagCount = 0;
	long lCount = 7;
	for (int i=0 ; i< lSrcLen ; i++ )
	{
		c  = (unsigned char)pSrc[i];       //取得当前需要转换字符
		mask2 = c>>lCount;  //取得下一字符的左边的mask 
		c1 = c<<(8-lCount); //右移取得8bit右边值
		c1 = c1>>1;         //因为最高位为0
		c1 = c1|mask1;      //合并后取得正常值
		mask1 = mask2;      //保存mask
		pTag[TagCount] = c1;
		TagCount ++ ;
		lCount -- ;
		if ( lCount <=0 )
		{
			lCount = 7;
			pTag[TagCount] = mask1;
			TagCount ++ ;
			mask1 = 0;
			mask2 = 0;
		}
	}
	pTag[TagCount] = 0;
	return TagCount;
}

char * ExMobileGZM( char * pMobile )
{
	char szBuf[64];
	strcpy( szBuf , pMobile );
	if ( !strncmp( szBuf , "+86" , strlen("+86") ) )
	{
		strcpy( pMobile , szBuf+3 );
		return pMobile;
	}
	if ( !strncmp( szBuf , "0086" , strlen("0086") ) )
	{
		strcpy( pMobile , szBuf+4 );
		return pMobile;
	}
	if ( !strncmp( szBuf , "86" , strlen("86") ) )
	{
		strcpy( pMobile , szBuf+2 );
		return pMobile;
	}
	if ( !strncmp( szBuf , "+" , strlen("+") ) )
	{
		strcpy( pMobile , szBuf+1 );
		return pMobile;
	}
	if ( !strncmp( szBuf , "00" , strlen("00") ) )
	{
		strcpy( pMobile , szBuf+2 );
		return pMobile;
	}
	return pMobile;
}
#endif