SCRAM support, SHA-1 and SHA-256

grijjy · Mar 5, 2019 · 6a1860e · 6a1860e
1 parent 3d8db7b
commit 6a1860e
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/Grijjy.Scram.pas b/Grijjy.Scram.pas
@@ -141,16 +141,16 @@ function ConcatenateBytes(const ADestBytes: TBytes; const ASourceBytes: TBytes):
 
 function SaslPrepPassword(APassword: String): String;
 var
-	I: Integer;
+  I: Integer;
 begin
-	Result := APassword;
-	for I := 1 to Length(APassword) do
-		case Word(APassword[I]) of
-		  $00A0, $1680, $2000, $2001, $2002, $2003, $2004, $2005, $2006, $2007, $2008, $2009, $200A, $202F, $205F, $3000:
-			begin
-				Result[I] := #$0020;
-			end;
-		end;
+  Result := APassword;
+  for I := 1 to Length(APassword) do
+    case Word(APassword[I]) of
+      $00A0, $1680, $2000, $2001, $2002, $2003, $2004, $2005, $2006, $2007, $2008, $2009, $200A, $202F, $205F, $3000:
+      begin
+        Result[I] := #$0020;
+      end;
+    end;
 end;
 
 { TgoScram }