Hash begin Bytes ( Bytes ' First ) := First for B2 in Ciffer ' Range loop for B3 in Ciffer ' Range loop for B4 in Ciffer ' Range loop Bytes ( 2. Get_Message_Digest_Handle Digest : constant Message_Digest_Ptr := Get_Message_Digest_Ptr ( Handle ) Bytes : Code Hash : Hashes. New_Line end if end loop end Compare task body Worker is Handle : constant Message_Digest_Handle := SHA_256. Put ( Character ' Val ( C )) end loop Ada. Put ( Wanted_Sums ( I ) & " " ) for C of Bytes loop Ada. Hash Bytes : in Code ) is begin for I in Wanted_Hash ' Range loop if Hash = Wanted_Hash ( I ) then Ada. 5 ) task type Worker ( First : Byte ) is end Worker procedure Compare ( Hash : in Hashes. Character ' Pos (' z ') subtype Code is Byte_Array ( 1. To_Hash ( Wanted_Sums ( 3 ))) subtype Ciffer is Byte range Character ' Pos (' a '). To_Hash ( Wanted_Sums ( 2 )), 3 => Hashes. To_Hash ( Wanted_Sums ( 1 )), 2 => Hashes. With Ada.Text_IO with _Digests.SHA_256 with with CryptAda.Pragmatics procedure Brute_Force is use _Digests use use CryptAda.Digests use CryptAda.Pragmatics Wanted_Sums : constant array ( 1.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |