Recent

Author Topic: [Solved] OpenSSL sign PKCS7  (Read 12149 times)

engkin

  • Hero Member
  • *****
  • Posts: 3112
Re: [Solved] OpenSSL sign PKCS7
« Reply #15 on: June 13, 2021, 02:56:31 am »
It works!

No, it does not!

Here is why:
Code: Pascal  [Select][+][-]
  1. program Project1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  7.   cthreads,
  8.   {$ENDIF}{$ENDIF}
  9.   Classes, SysUtils
  10.   { you can add units after this };
  11.  
  12. procedure test;
  13. var
  14.   s:String;
  15.   pc:pchar=pchar($45454545);
  16. begin
  17.   s:='ABC';
  18.   WriteLn('The fact: s=''',s,'''');
  19.   WriteLn('To point at the first letter in s...');
  20.   pc:=@s;
  21.   WriteLn('You think this works: @s --> ',pc^);
  22.   pc:=@s[1];
  23.   WriteLn('I think this works: @s[1] --> ',pc^);
  24. end;
  25.  
  26. begin
  27.   test;
  28.   ReadLn;
  29. end.
« Last Edit: June 13, 2021, 03:06:46 am by engkin »

 

TinyPortal © 2005-2018