Просмотр исходного кода

ListDigests() now correctly returns individual digests.

woollybah 5 лет назад
Родитель
Сommit
fb838e9bb3
2 измененных файлов с 5 добавлено и 2 удалено
  1. 4 1
      digest.mod/digest.bmx
  2. 1 1
      digest.mod/doc/listdigests.bmx

+ 4 - 1
digest.mod/digest.bmx

@@ -57,7 +57,10 @@ Function ListDigests:TArrayList<String>()
 	Local register:TDigestRegister=digest_registry
 
 	While register
-		list.Add(register.ToString())
+		Local sp:String[] = register.ToString().Split(",")
+		For Local digest:String = EachIn sp
+			list.Add(digest.Trim())
+		Next
 		register = register._succ
 	Wend
 

+ 1 - 1
digest.mod/doc/listdigests.bmx

@@ -2,7 +2,7 @@ SuperStrict
 
 Framework brl.standardio
 Import Crypto.MD5Digest
-Import Crypto.SHA512Digest
+Import Crypto.SHA3Digest
 
 Print "Available digests:"
 For Local digest:String = EachIn ListDigests()