Форум программистов [Powered by Invision Power Board]

Код

unsigned char S[256];
unsigned int i, j;


//Инициализация
void rc4_init(unsigned char *key, unsigned int key_length) {
    for (i = 0; i < 255; i++)
        S[i] = i;

    for (i = j = 0; i < 255; i++) {
         unsigned char temp;

        j = (j + key[i % key_length] + S[i]) % 255;
        temp = S[i];
        S[i] = S[j];
        S[j] = temp;
    }

    i = j = 0;
}
//Генерация ключевого потока
/* PRGA */
 unsigned char rc4_output() {
     unsigned char temp;

    i = (i + 1) % 255;
    j = (j + S[i]) % 255;

    temp = S[j];
    S[j] = S[i];
    S[i] = temp;

    return S[(temp + S[j]) % 255];
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *stream, *outstream;//Потоки для чтения и записи
unsigned char *c; //блок для чтения
unsigned char *key; //ключ
int size;
AnsiString str;
c= new unsigned char [256];
for (int y = 0; y < strlen((unsigned unsigned char*)c); y++)
        c[y]=0;

if(OpenDialog1->Execute())
        {Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
        stream = new TFileStream(OpenDialog1->FileName,fmOpenRead|fmShareDenyWrite);}

if(OpenDialog2->Execute())
        outstream=new TFileStream(OpenDialog2->FileName,fmCreate|fmOpenWrite);
key=Edit1->Text.c_str();
rc4_init(key, strlen((unsigned char*)key));


//узнаём размер файла, читаем 256 символов, шифруем, если количество оставшихся символов <256, читаем оставшиеся символы. Шифруем и записываем в файл для сохранения[quote]

[/quote]

size=stream->Size;
while(size>=0)
             {
        if (size<256)
        {stream->Read(c,size);
        for (int y = 0; y < strlen((unsigned char*)c); y++)
            {c[y]=c[y]^ rc4_output();
            if (c[y]==NULL) break;
            }
        outstream->Write(c,size);
        }
         else{   
        stream->Read(c,256);
        for (int y = 0; y < strlen((unsigned unsigned char*)c); y++)
            {c[y]=c[y]^ rc4_output();
            if (c[y]==NULL) break;}
        outstream->Write(c,256);  //}
        for (int y = 0; y < strlen((unsigned unsigned char*)c); y++)
          c[i]=0;

        size=size-256;
        }

delete stream;
delete outstream;
Memo1->Lines->LoadFromFile(OpenDialog2->FileName);


}