Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: Mini-SHA1

    Delphi
    by SittingDuck, 28. Okt 2011
  Vielen Dank für Eure ausführliche Hilfe. Nun läuft alles perfekt. Eins ist klar ... ohne dieses Forum wäre ich ganz oft total aufgeschmissen!
• Forum: Win32/Win64 API (native code)

  AW: Mini-SHA1

    Delphi
    by SittingDuck, 16. Okt 2011
  Super himitsu ... Danke für Deinen Input, da habe ich es mir wohl etwas zu leicht gemacht. Irgendwas stimmt da aber immer noch nicht.
  
  Wenn ich per
  
  var s, h: String;
  
  s := 'abc';
  h := TSHA1.CalcBase(PChar(s), Length(s));
  
  den Hash von dem String 'abc' ermitteln möchte dann sollte eigentlich das rauskommen:
• Forum: Win32/Win64 API (native code)

  AW: Mini-SHA1

    Delphi
    by SittingDuck, 15. Okt 2011
  Hallo zusammen ...
  
  Ich wollte die Routine von himitsu 'mal eben' umstellen auf die Ausgabe im Hex-Format. In der Bit-Schiebe-Routine stimmt aber was nicht. Dem entsprechend ist das Ergebnis dann leider auch falsch. Ich habe den Base64 Teil einfach mal auskommentiert.
  
  class function TSHA1.toBase64(Res: TSHA1Res): String;
  //const Base64: array of Char =...