CFLib.org – RC4

RC4(strPwd, plaintxt)

Last updated January 12, 2006

author

Version: 1 | Requires: ColdFusion 5 | Library: SecurityLib

Rated 6 time(s). Average Rating: 3.2

Description:
A function does RC4 encryption by using a key and the string. Formula based upon script from Joshua Olson. Original article may be found here: http://www.4guysfromrolla.com/webtech/010100-1.shtml

Return Values:
Returns a string.

Example:

view plain print about

<cfoutput>
#RC4("chickens","TextToSecure")#
</cfoutput>

<cfoutput>
#RC4("chickens","TextToSecure")#
</cfoutput>

Parameters:

Name	Description	Required
strPwd	The key to use for encryption.	Yes
plaintxt	Text to encrypt.	Yes

Full UDF Source:

	
	
			
			
			
				
				view plain
				
				
				copy to clipboard
				
				
				
				
				print
				
				
				about
				ColdFISH is developed by Jason Delmore.  Source code and license information available at coldfish.riaforge.org.  Version 3.1.1
				
			<cfscript>
/**
 * A function does RC4 encryption by using a key and the string.
 * Original source: http://www.4guysfromrolla.com/webtech/010100-1.shtml
 * 
 * @param strPwd 	 The key to use for encryption. (Required)
 * @param plaintxt 	 Text to encrypt. (Required)
 * @return Returns a string. 
 * @author Michael Krock (&#109;&#105;&#99;&#104;&#97;&#101;&#108;&#46;&#107;&#114;&#111;&#99;&#107;&#64;&#97;&#118;&#118;&#46;&#99;&#111;&#109;) 
 * @version 1, January 12, 2006 
 */
function RC4(strPwd,plaintxt) {
	var sbox = ArrayNew(1);
	var key = ArrayNew(1);
	var tempSwap = 0;
	var a = 0;
	var b = 0;
	var intLength = len(strPwd);
	var temp = 0;
	var i = 0;
	var j = 0;
	var k = 0;
	var cipherby = 0;
	var cipher = "";
	
	for(a=0; a lte 255; a=a+1) {	
		key[a + 1] = asc(mid(strPwd,(a MOD intLength)+1,1));
		sbox[a + 1] = a;
	}

	for(a=0; a lte 255; a=a+1) {	
		b = (b + sbox[a + 1] + key[a + 1]) Mod 256;		
		tempSwap = sbox[a + 1];
		sbox[a + 1] = sbox[b + 1];
		sbox[b + 1] = tempSwap;    
	}

	for(a=1; a lte len(plaintxt); a=a+1) {	
		i = (i + 1) mod 256;
		j = (j + sbox[i + 1]) Mod 256;		
		temp = sbox[i + 1];
		sbox[i + 1] = sbox[j + 1];
		sbox[j + 1] = temp;
		k = sbox[((sbox[i + 1] + sbox[j + 1]) mod 256) + 1];		
		cipherby = BitXor(asc(mid(plaintxt, a, 1)), k);
		cipher = cipher & chr(cipherby);  		
	}
	return cipher;
}
</cfscript>
		<cfscript>
/**
 * A function does RC4 encryption by using a key and the string.
 * Original source: http://www.4guysfromrolla.com/webtech/010100-1.shtml
 * 
 * @param strPwd      The key to use for encryption. (Required)
 * @param plaintxt      Text to encrypt. (Required)
 * @return Returns a string. 
 * @author Michael Krock (michael.krock@avv.com) 
 * @version 1, January 12, 2006 
 */
function RC4(strPwd,plaintxt) {
    var sbox = ArrayNew(1);
    var key = ArrayNew(1);
    var tempSwap = 0;
    var a = 0;
    var b = 0;
    var intLength = len(strPwd);
    var temp = 0;
    var i = 0;
    var j = 0;
    var k = 0;
    var cipherby = 0;
    var cipher = "";
    
    for(a=0; a lte 255; a=a+1) {    
        key[a + 1] = asc(mid(strPwd,(a MOD intLength)+1,1));
        sbox[a + 1] = a;
    }

    for(a=0; a lte 255; a=a+1) {    
        b = (b + sbox[a + 1] + key[a + 1]) Mod 256;        
        tempSwap = sbox[a + 1];
        sbox[a + 1] = sbox[b + 1];
        sbox[b + 1] = tempSwap;    
    }

    for(a=1; a lte len(plaintxt); a=a+1) {    
        i = (i + 1) mod 256;
        j = (j + sbox[i + 1]) Mod 256;        
        temp = sbox[i + 1];
        sbox[i + 1] = sbox[j + 1];
        sbox[j + 1] = temp;
        k = sbox[((sbox[i + 1] + sbox[j + 1]) mod 256) + 1];        
        cipherby = BitXor(asc(mid(plaintxt, a, 1)), k);
        cipher = cipher & chr(cipherby);          
    }
    return cipher;
}
</cfscript>