<!DOCTYPE html><html><head>
    <meta content="text/html; charset=windows-1252" http-equiv="Content-Type">
  
<style type="text/css">body { font-family:'Times New Roman'; font-size:13px}</style>
</head>
<body text="#000000" bgcolor="#FFFFFF"><div>I see another problem: Your pascal implementation sets key badly. I think it should be 'key'[1]. However as I didn't even use buffer with constant string so I might be wrong.</div><div>You should also try to encrypt longer messages to see if first block is intact because then it's padding problem.</div><div>Please also note that such implementation is insecure because IV is static, key isn't derived with KDF, DES is insecure nowadays, and no integrity checking is done. So if you want your encryption to be of any security, fix these flaws.</div><div>Also consider cleaning up code so we don't get confused about unused variables.</div><div><br></div><div>(Btw. My first post on this mailing list - yay!)</div><div><br></div><div>W dniu .11.2015 o 12:56 Gabriele Cappelletto <cappellettogabriele@yahoo.it> pisze:<br></div><br><blockquote style="margin: 0 0 0.80ex; border-left: #0000FF 2px solid; padding-left: 1ex">
    But the cipther constructor does not refer to vector, but the
    variable IV. Vector is not used in this example<br>
    <br>
    <div class="moz-cite-prefix">Il 15/11/2015 12:44, DougC ha scritto:<br>
    </div>
    <blockquote cite="mid:1510af65da5.ea6fd55f4987.1854466511911375630@moosemail.net" type="cite">
      
      <div style="font-size:10pt;font-family:Verdana,Arial,Helvetica,sans-serif;">
        <div>After quick look I noticed that<br>
        </div>
        <div><br>
        </div>
        <div>var<br>
        </div>
        <div>  Vector : array of Byte;<br>
        </div>
        <div><br>
        </div>
        <div>  SetLength(Vector, 8);<br>
        </div>
        <div>  Vector[0] := 1;<br>
        </div>
        <div>  Vector[1] := 2;<br>
        </div>
        <div>  Vector[2] := 3;<br>
        </div>
        <div>  Vector[3] := 4;<br>
        </div>
        <div>  Vector[4] := 5;<br>
        </div>
        <div>  Vector[5] := 6;<br>
        </div>
        <div>  Vector[6] := 7;<br>
        </div>
        <div>  Vector[7] := 8;<br>
        </div>
        <div><br>
        </div>
        <div>does not match<br>
        </div>
        <div><br>
        </div>
        <div>  Dim vector As String = "12345678"<br>
        </div>
        <div><br>
        </div>
        <div>Should be something like<br>
        </div>
        <div>  Vector[0] := '1';<br>
        </div>
        <div>  Vector[1] := '2';<br>
        </div>
        <div>  Vector[2] := '3';<br>
        </div>
        <div>  Vector[3] := '4';<br>
        </div>
        <div>  Vector[4] := '5';<br>
        </div>
        <div>  Vector[5] := '6';<br>
        </div>
        <div>  Vector[6] := '7';<br>
        </div>
        <div>  Vector[7] := '8';<br>
        </div>
        <div><br>
        </div>
        <div>I didn't look at the rest.<br>
        </div>
        <div><br>
        </div>
      </div>
      <br>
      
      <br>
      <pre wrap="">--
_______________________________________________
Lazarus mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a>
</pre>
    </blockquote>
    <br>
  </blockquote><br><br><br></body></html>