Data update

Task/OpenWebNet-password/Delphi/openwebnet-password.pas

@@ -0,0 +1,101 @@
+program OpenWebNet_password;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils;
+
+function ownCalcPass(password, nonce: string): Cardinal;
+begin
+  var start := True;
+  var num1 := 0;
+  var num2 := num1;
+  var i := password.ToInteger();
+  var pwd := i;
+
+  for var c in nonce do
+  begin
+    if c <> '0' then
+    begin
+      if start then
+        num2 := pwd;
+      start := False;
+    end;
+
+    case c of
+      '1':
+        begin
+          num1 := (num2 and $FFFFFF80) shr 7;
+          num2 := num2 shl 25;
+        end;
+      '2':
+        begin
+          num1 := (num2 and $FFFFFFF0) shr 4;
+          num2 := num2 shl 28;
+        end;
+      '3':
+        begin
+          num1 := (num2 and $FFFFFFF8) shr 3;
+          num2 := num2 shl 29;
+        end;
+      '4':
+        begin
+          num1 := num2 shl 1;
+          num2 := num2 shr 31;
+        end;
+      '5':
+        begin
+          num1 := num2 shl 5;
+          num2 := num2 shr 27;
+        end;
+      '6':
+        begin
+          num1 := num2 shl 12;
+          num2 := num2 shr 20;
+        end;
+      '7':
+        begin
+          var num3 := num2 and $0000FF00;
+          var num4 := ((num2 and $000000FF) shl 24) or ((num2 and $00FF0000) shr 16);
+          num1 := num3 or num4;
+          num2 := (num2 and $FF000000) shr 8;
+        end;
+      '8':
+        begin
+          ;
+          num1 := (num2 and $0000FFFF) shl 16 or (num2 shr 24);
+          num2 := (num2 and $00FF0000) shr 8;
+        end;
+      '9':
+        begin
+          num1 := not num2;
+        end;
+    else
+      num1 := num2;
+    end;
+
+    num1 := num1 and $FFFFFFFF;
+    num2 := num2 and $FFFFFFFF;
+    if (c <> '0') and (c <> '9') then
+      num1 := num1 or num2;
+    num2 := num1;
+  end;
+  Result := num1;
+end;
+
+function TestPasswordCalc(Password, nonce: string; expected: Cardinal): Integer;
+begin
+  var res := ownCalcPass(Password, nonce);
+  var m := format('%s  %s  %-10u  %-10u', [Password, nonce, res, expected]);
+  if res = expected then
+    writeln('PASS ' + m)
+  else
+    writeln('FAIL ' + m);
+end;
+
+begin
+  testPasswordCalc('12345', '603356072', 25280520);
+  testPasswordCalc('12345', '410501656', 119537670);
+  testPasswordCalc('12345', '630292165', 4269684735);
+  readln;
+end.