Шифрование VMPC

[Namide]

Пишу чат с зашифрованной передачей данных, возникла проблема с шифрованием - использую VMPC, алгоритм работает для массивов чаров, но при если конвертировать AnsiString в char* потом шифровать, потом обратно в AnsiString, пересылать и раскодировать таким же образом, то получается не то, что посылалось. Грешу на конвертирование, но ошибку найти не могу. Помогите пожалуйста. Вот код шифрования и пример приема сообщения.

#include <vcl.h>
#include <stdint.h>
#include <string.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMForm *MForm;
bool mode_server=false;
bool use_crypt=false;
String Adress;
String Name;
String SendString;
char *buf;
char *key;
char *iv="sjg5456mdgf56oomdfg4";
int len;

//---------------------------------------------------------------------------
__fastcall TMForm::TMForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

char n = 0;
char P[256];
char s = 0;


void setup (char * key, char * iv)
{
  long m, i;
  char temp;
  s = 0;

  for (i = 0; i != 256; i++)
    {
      P[i] = (char) i;
    }

  for (m = 0; m != 768; m++)
    {
      s = P[(s + P[m & 0xff] + key[m % 64]) & 0xff];
      temp = P[m & 0xff];
      P[m & 0xff] = P[s & 0xff];
      P[s & 0xff] = temp;
    }
  for (m = 0; m < 768; m++)
    {
      s = P[(s + P[m & 0xff] + iv[m % 64]) & 0xff];
      temp = P[m & 0xff];
      P[m & 0xff] = P[s & 0xff];
      P[s & 0xff] = temp;
    }
  n = 0;
}

void vmpc (char * input, char * output, long len)
{
  long i;
  char z, temp;
  for (i = 0; i != len; i++)
    {
      s = P[(s + P[n & 0xff]) & 0xff];
      z = P[(P[(P[s & 0xff]) & 0xff] + 1) & 0xff];
      temp = P[n & 0xff];
      P[n & 0xff] = P[s & 0xff];
      P[s & 0xff] = temp;
      n = (char) ((n + 1) & 0xff);
      output[i] = (char) (input[i] ^ z);
    }
}

String crypt(String mes)
{
  setup(key, iv);
  buf=mes.c_str();
  vmpc(mes.c_str(),buf,mes.Length());
  SendString=AnsiString(buf);
  return SendString;
}


void __fastcall TMForm::ServerClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  if (!use_crypt)
    Chat->Lines->Add(TimeToStr(Time()) + " (User) " + Socket->ReceiveText());
  else
    Chat->Lines->Add(TimeToStr(Time()) + " (User) " + crypt(Socket->ReceiveText()));
}