C / C++ / MFC

*************************************************************************
	  * 							API TEMPLATE PROGRAM                      *
	  * THIS PROGRAM SERVES AS A TEMPLATE TO GENERATE THE ACTUAL API PROGRAM  *
	  *                                                                       *
	  * MAPPING RULES: 														  *
	  * --------------------------------------------------------------------  *
	  *		Variable Name						Replace with				  *
	  * --------------------------------------------------------------------  *
	  *     &apiname				API Name from Mapping Repository          *
	  *     &dclgen					DCLGEN name from Mapping Repository       *
	  *     &keyinfo				Key field column name from file layout    * 
	  *     &hostvarprimary			Key field host var name from DCLGEN       *
	  *     &tablecols				Table column name from DCLGEN             *
	  *     &tablehostvars			Host variable names from DCLGEN           *
	  *     &tblprimary				Key field column name from DCLGEN         *
	  *     &tablehostvars01		01 level of host var from DCLGEN          *
	  *************************************************************************  
/* strings to be replaced if present in the above block should be ignored */	  
       IDENTIFICATION DIVISION.
	   PROGRAM-ID. &apiname. /* &apiname string shud be replaced with another string */
	   
	   		EXEC SQL
			INCLUDE &dclgen
		END-EXEC.
	   
		EXEC SQL
			INCLUDE SQLCA
		END-EXEC.
	   
	 	   2100-SELECT-PARA.
			MOVE &keyinfo TO &hostvarprimary
			EXEC SQL
				SELECT &tablecols /* &tablecols to be replaced with another string */
					INTO
					&tablehostvars /*&tablehostvars to be replaced with another string */


					FROM &tblname
					WHERE
					&tblprimary = &hostvarprimary
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
				MOVE &tablehostvars01 TO VSAM-REC-BLOCK
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2100-SELECT-PARA-EXIT. EXIT.

	   2200-INSERT-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* This &tablehostvars01 string SHOULD NOT be replaced.. */
			EXEC SQL
				INSERT INTO &tblname
				(
				&tablecols
				)
				VALUES
				(
				&tablehostvars
				)
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2200-INSERT-PARA-EXIT. EXIT.	   
			
	   2300-UPDATE-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* shud not be replaced */
			EXEC SQL
				UPDATE &tblname
				SET &tablecols = :&tablehostvars
					WHERE
					&tblprimary = &tablehostvarsprimary /* shud not be replaced */
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   			EXIT PROGRAM.

replace(char text2find[80],char text2repl[80],char fileOrig[32], char fileRepl[32] )
{

	    char buffer[MAX_LEN_SINGLE_LINE+2];
	    char *buff_ptr, *find_ptr, *tok;
	    FILE *fp1, *fp2;
	    size_t find_len = strlen(text2find);

	    fp1 = fopen(fileOrig,"r+");
	    fp2 = fopen(fileRepl,"w+");
	    rewind(fp1);
	    rewind(fp2);

	    while(fgets(buffer,MAX_LEN_SINGLE_LINE+2,fp1))
	    {
	        buff_ptr = buffer;
	        tok = strtok(buff_ptr,"*");
	        if(tok != NULL)
	        {
	        	while ((find_ptr = strstr(buff_ptr,text2find)))
	        	{

	        		while(buff_ptr < find_ptr)
	                fputc((int)*buff_ptr++,fp2);

	        	fputs(text2repl,fp2);

	            buff_ptr += find_len;

	        	}
	        	fputs(buff_ptr,fp2);
	        }
	    }

	   fclose(fp2);
	   fclose(fp1);
}

manmadkumarreddy wrote:

i have only 25 hours time to complete that above project

manmadkumarreddy wrote:

have only 25 hours time to complete that above project

manmadkumarreddy wrote:

25 hours time to complete

manmadkumarreddy wrote:

source code please send

linnumberone wrote:

I have search gSpan by google, but the code i find which need the environment with matlab.

Brandon T. H. wrote:

I mean other anti viruses can do that, I wonder how they can though...

szTextChar = szDomainName[ (i % wcslen(szDomainName)) ];
szKeyChar = pzApplicationName[ (i % wcslen(szDomainName)) ];

Private Const VALID_CHARACTERS = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
Private Const DEFAULT_FORMAT = "&&&&-&&&&-&&&&-&&&&"

For i = 1 To CountAmpersands(sFormat)
L1  strTextChar = Mid(strDomainName, (i Mod Len(strDomainName)) + 1, 1)
L2  strKeyChar = Mid(ApplicationName, (i Mod Len(ApplicationName)) + 1, 1)
L3  intTemp = (((Asc(strKeyChar) * i) * Len(ApplicationName) + 1) Mod Len(ValidCharacters) + 1) 'vb returns &H10 which is 16
L4  strTextChar = Chr(Asc(strTextChar) Xor intTemp)
L5  intTemp = (((Asc(strKeyChar) * i) * Len(DomainName) + 1) Mod Len(ValidCharacters) + 1)
L6  strTextChar = Chr(Asc(strTextChar) Xor intTemp)
L7  intEncryptedChar = ((Asc(strTextChar) Xor Asc(strKeyChar)) Mod Len(ValidCharacters)) + 1
L8  strKey = strKey & Mid(ValidCharacters, intEncryptedChar, 1)

   Select Case i
      Case 4, 8, 12
        strKey = strKey & "-"
      End Select

Next i

for (int i = 1; i <= iCount; ++i) {
L1 szTextCharA = szDomainNameA[ ( i % strlen( szDomainNameA )) ];  // Correct
L2 szKeyCharA = szAppKeyA[ ( i % strlen( szAppKeyA )) ];   // Correct
L3 iTemp = ((szKeyCharA * i) * strlen(szAppKeyA)) % strlen( LICENSEKEY_CHARACTERS );//iTemp 16 or &H10
L4 szTextCharA = (char) ((int)szTextCharA ^ iTemp );   // iTemp should be 16 or &H10
L5 iTemp = (int)(szKeyCharA * i) * strlen(szDomainNameA) % strlen( LICENSEKEY_CHARACTERS );
L6 szTextCharA = (char)((int)szTextCharA ^ iTemp);
L7 iEncryptedChar = (int)szTextCharA ^ (int)szKeyCharA % strlen(LICENSEKEY_CHARACTERS);

   // Build up the License Key till it's done.
   if ( i == 1) {
      strncpy_s( szKeyA, iKeyA, &LICENSEKEY_CHARACTERS[ iEncryptedChar ], 1 );
   }
   else {
      strncat_s( szKeyA, iKeyA, &LICENSEKEY_CHARACTERS[ iEncryptedChar ], 1 );
   }

}   // End of for loop

	const char LICENSEKEY_CHARACTERS [] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
	const char LICENSEKEY_FORMAT [] = "&&&&-&&&&-&&&&-&&&&";

WCHAR* CA_LicenseKey::_makeKey( WCHAR *pzAppKeyW, WCHAR *pzDomainNameW )
{
	INT iTemp;
	int iEncryptedChar;	
	char szTextCharA;
	char szKeyCharA;
	char *szKeyA = NULL;
	
	if ( wcslen(pzDomainNameW ) == 0) {
		DWORD dwKey = wcslen( L"Invalid Domain Name" );
		WCHAR *szReturnW = new WCHAR[dwKey+1];
		wcsncpy_s(szReturnW, dwKey+1, L"Invalid Domain Name", dwKey );
		return szReturnW;
	}

	int iDomainNameA = (WideCharToMultiByte(CP_UTF8, 0, (pzDomainNameW), -1, NULL, 0, NULL, NULL) - 1) + 1;	
	char *szDomainNameA = new char[iDomainNameA];
	WideCharToMultiByte(CP_UTF8, 0, pzDomainNameW, -1, szDomainNameA, iDomainNameA, NULL, NULL);
	_strlwr_s( szDomainNameA, iDomainNameA );
	
	int iAppKeyA = (WideCharToMultiByte(CP_UTF8, 0, pzAppKeyW, -1, NULL, 0, NULL, NULL) - 1) + 1;	
	char *szAppKeyA = new char[iDomainNameA];
	WideCharToMultiByte(CP_UTF8, 0, pzAppKeyW, -1, szAppKeyA, iAppKeyA, NULL, NULL);
		
	int iCount = _countAmpersands();
	int iKeyA = strlen(LICENSEKEY_FORMAT)+1;
	szKeyA = new char[ iKeyA+1 ];	
		
	for (int i = 1; i <= iCount; ++i) {				
		
		szTextCharA = szDomainNameA[ ( i % strlen( szDomainNameA )) ];	// Correct
		szKeyCharA = szAppKeyA[ ( i % strlen( szAppKeyA )) ];	// Correct
		
		iTemp = ((szKeyCharA * i) * strlen(szAppKeyA)) % strlen( LICENSEKEY_CHARACTERS ); // iTemp should be 16 or &H10	
		szTextCharA = (char) ((int)szTextCharA ^ iTemp );	// iTemp should be 16 or &H10
		
		iTemp = (int)(szKeyCharA * i) * strlen(szDomainNameA) % strlen( LICENSEKEY_CHARACTERS );
		szTextCharA = (char)((int)szTextCharA ^ iTemp);
		iEncryptedChar = (int)szTextCharA ^ (int)szKeyCharA % strlen(LICENSEKEY_CHARACTERS);
		
		// Build up the License Key till it's done.
		if ( i == 1) {
			strncpy_s( szKeyA, iKeyA, &LICENSEKEY_CHARACTERS[ iEncryptedChar ], 1 );
		}
		else {
			strncat_s( szKeyA, iKeyA, &LICENSEKEY_CHARACTERS[ iEncryptedChar ], 1 );
		}
		
	}	// End of for loop

	delete [] szDomainNameA;
	delete [] szAppKeyA;
	
	WCHAR *szKeyW = NULL;
	return szKeyW;
}

int CA_LicenseKey::_countAmpersands( void )
{
	INT iCount = 0;
	int iLength = 0;
	char *szFormatA = NULL;
	
	iLength = strlen(LICENSEKEY_FORMAT);
	szFormatA = new char[iLength+1];
	strncpy_s( szFormatA, iLength+1, LICENSEKEY_FORMAT, iLength );
	
	for (int i = 0; i <= iLength; ++i) {				
		if ( strncmp( &szFormatA[i], "&", 1) == 0 ) {
			++iCount;
		}		
	}

	delete szFormatA;
	return iCount;
}

strTextChar = static_cast<wchar_t>(static_cast<int>(strTextChar[0]) ^ intTemp);