We help IT Professionals succeed at work.

I want to know how to use DCPCrypt  v2

alexinoa
alexinoa asked
on
1,703 Views
Last Modified: 2010-04-04
I do not know anything about encryption...

i have this function:
--------------------------------------------------------------------------------------------
function getDigest(str:string):ansiString;
var
  Hash  : TDCP_sha256;
  Digest: array[0..31] of byte;
  i: integer;
  s: ansiString;
begin


  s:= '';

  hash  := TDCP_sha256.Create(nil);
  if hash<>nil then
  begin
    try

      Hash.Init;                 // initialize it
      Hash.UpdateStr(str);       // hash the stream contents
      Hash.Final(Digest);        // produce the digest


      for i:= 0 to length(Digest)-1 do
        s:= s + IntToHex(Digest[i],2);

    finally
      hash.free;
    end;

  end;
  result  :=  s;
end;
--------------------------------------------------------------------------------------------------------------
which returns me a hash string to store in a table/database.
actually it works very good in 256 bits, i think so, but i want to upgrade my function to 512 bits.
how can i do that please??
Comment
Watch Question

Sr. Software Engineer
CERTIFIED EXPERT
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.