v160

changelog.txt

@@ -1,3 +1,7 @@
+* version 1.60
+
+- Updated label for stake size.
+
 * version 1.50
 
 - Completely adapted to new crypto functions.

nl_cripto.pas

@@ -80,9 +80,9 @@ function GetAddressFromPublicKey(PubKey:String):String;
 Begin
 PubSHAHashed := HashSha256String(PubKey);
 Hash1 := HashMD160String(PubSHAHashed);
-hash1 := B16ToB58(Hash1);
+hash1 := BMHexTo58(Hash1,58);
 sumatoria := BMB58resumen(Hash1);
-clave := B10ToB58(sumatoria);
+clave := BMDecTo58(sumatoria);
 hash2 := hash1+clave;
 Result := 'N'+hash2;
 End;

nl_data.pas

@@ -142,7 +142,7 @@ TUpdateThread = class(TThread)
   Comisiontrfr = 10000;
   MinimunFee = 1000000;
   Protocol = 2;
-  ProgramVersion = '1.50';
+  ProgramVersion = '1.60';
 
   HexAlphabet : string = '0123456789ABCDEF';
   B58Alphabet : string = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';

nl_gui.pas

@@ -143,6 +143,8 @@ implementation
 Int_TotalSupply := (GetSumaryLastBlock *50)+10303;
 supply := Int_TotalSupply/1000000;
 Int_StakeSize  := (Int_TotalSupply div 500)+1;
+  if Int_StakeSize > 11000 then Int_StakeSize := 11000;
+  if GetSumaryLastBlock > 110000 then Int_StakeSize := 10500;
 supply := ((GetSumaryLastBlock *50)+10303)/1000000;
 if Wallet_Synced then form1.PanelBlockInfo.Color:=clGreen
 else form1.PanelBlockInfo.Color:=clRed;

nl_network.pas

@@ -38,7 +38,6 @@ function SendOrder(OrderString:String):String;
 Client.Port:=thisnode.port;
 Client.ConnectTimeout:= 3000;
 Client.ReadTimeout:=3000;
-//Tolog(OrderString);
 TRY
 Client.Connect;
 Client.IOHandler.WriteLn(OrderString);

releasenotes.txt

@@ -1,4 +1,3 @@
-* version 1.50
+* version 1.60
 
-- Completely adapted to new crypto functions.
-- Upgraded to new fees calculation.
+- Updated label for stake size.