Алгоритм АЕS шифрование, расшифрование

[max38934]

У тебя наверное монитор меньше 19 дюймов(1280:1024)? Надо было уставить left:=XXX!
Спасибо за помощь!

[max38934]

 // вход: login - данные для шифрования
  // Шаг 1: определяем, сколько надо байт для хранения зашифрованного текста
  X := Length(login);
  if not CryptEncrypt(key, 0, True, 0, Pointer(login), @X, Length(login)) then
    if GetLastError <> ERROR_MORE_DATA then
      RaiseLastOSError;
  // Шаг 2: выделили буфер (уже не 512, а ровно, сколько надо)
  Y := Length(login);
  SetLength(login, X);
  // Шаг 3: шифрование
  if not CryptEncrypt(key, 0, True, 0, Pointer(login), @Y, Length(login)) then
    RaiseLastOSError;
  SetLength(login, Y);
  {освобождаем место и закрываем файлы}
  {освобождаем контекст криптопровайдера}
  CryptReleaseContext(hProv, 0);