The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include <sys/types.h>
/* rc4.h */

typedef struct rc4_key
   {      
        unsigned char state[256];       
        unsigned char x;        
        unsigned char y;
   } RC4_KEY;

void prepare_key(unsigned char *key_data_ptr,int key_data_len,RC4_KEY * key);
void rc4(unsigned char *buffer_ptr,unsigned long buffer_len,RC4_KEY * key);