Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 9. Jan 2008
  Ok, probier das nochmal aus.
  
  
  var
  ACipherClass: TDECCipherClass = TCipher_Rijndael;
  ACipherMode: TCipherMode = cmCBCx;
  AHashClass: TDECHashClass = THash_SHA1;
  ATextFormat: TDECFormatClass = TFormat_MIME64;
  AKDFIndex: LongWord = 1;
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 8. Jan 2008
  Also doch ein Wide-WideString. Irgendeine Typumwandlung macht aus einem WideString einen doppelt-gemoppelten Wide-WideString. Schau mal ob du bei MessageBoxW(PWideChar(WideStrng),...) mit MessageBoxW(PWideChar(@WideString), ...) oder MessageBoxW(Pointer(@WideString),...) was erreichen kannst.
  
  
  Gruß Hagen
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 8. Jan 2008
  Doch hat er, nur du betrachtest den WideString falsch. Oben schrieb ich explizit -> im Speicherauszug. Also im DebugView die Checkbox "Speicherauszug" anhacken, bitte ;)
  
  Gruß hagen
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 8. Jan 2008
  doch natürlich hast du das. Wenn du einen WideString als Speicherauszug betrachtest und der WideString enthält einen Ansi-compatiblen String dann wird jedes 2. Byte ein #0 sein. Also exakt so wie das was deine MessageBoxW() anzeigt. Nur das eben die MessageBoxW() eine WideString MessageBoxA() Variante ist und das ohne diese #0 Zeichen darstellen muß !!
  
  Gruß Hagen
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 7. Jan 2008
  Hm so aus dem Stegreif weis ich auch nicht was falsch ist. Ein WideString ist aber ein Array of WideChar und WideChar ist ein 2 Bytes Datentyp. Bei Ansicode Zeichensatz wird nur 1 Byte davon real benutzt das andere muß immer 0 sein. Also sieht es eher so aus als ob die MessageBox() einen WideString als normalen String anzeigt oder aber als ob die VCL aus einem WideString einen Wide-WideString...
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 7. Jan 2008
  nun können wir die komplette Funktion als WideString Funktion umbauen. Wir deklarieren die restlichen LongStrings einfach als Widestring.
  
  
  var
  ACipherClass: TDECCipherClass = TCipher_Rijndael;
  ACipherMode: TCipherMode = cmCBCx;
  AHashClass: TDECHashClass = THash_SHA1;
  ATextFormat: TDECFormatClass = TFormat_MIME64;
  AKDFIndex: LongWord = 1;
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 7. Jan 2008
  als nächstes wandeln wir diese Funktionen in WideString Funktionen um
  
  
  var
  ACipherClass: TDECCipherClass = TCipher_Rijndael;
  ACipherMode: TCipherMode = cmCBCx;
  AHashClass: TDECHashClass = THash_SHA1;
  ATextFormat: TDECFormatClass = TFormat_MIME64;
  AKDFIndex: LongWord = 1;
• Forum: Object-Pascal / Delphi-Language

  Re: [DEC] WideString ver/entschlüsseln

    Delphi
    by negaH, 7. Jan 2008
  Hi,
  
  also als erstes probiere mal diese beiden Funktionen:
  
  
  var
  ACipherClass: TDECCipherClass = TCipher_Blowfish;
  ACipherMode: TCipherMode = cmCFS8;
  AHashClass: TDECHashClass = THash_SHA1;
  ATextFormat: TDECFormatClass = TFormat_MIME64;