FiveTech Software tech support forums

>on new class I use Aes cifrature ADVANCED ENCRYPTION STANDARD 128 bit
Hello Silvio
how do you store the key.
c := aes256_Decrypt( c, @cKey )
Thank you and best regards
Otto

For decript I not use decript/encript of fivewin
On oldest class I used decript and encript
on new class I use Aes cifrature ADVANCED ENCRYPTION STANDARD 128 bit

Hello Silvio
can you please show
some lines how TLicense decrypt.

Do you have something like:
::cPw := DECRYPT(Encrypted,"1234aeb")
in your class.
Thank you
and best regards
Otto

Cristobal,
maybe the father Otto does not talk to his daughter Iris or they have a fight.....
I wanted to go and greet our friends in Sillian at Christmas but I saw that they have their hotel all busy
Greetings to Renate!!!

Good evening, unfortunately I can not see the answer/post of Cristobal. Kind regards Iris Iris My answer was by mail, I did not publish it in the forum Otto offered to publish it for me https://github.com/harbour/core/blob/master/doc/pragma.txt #pragma TEXTHIDDEN(1) / ( 0 ) This scrambles any text ...

oLicense:TLicense():New("test.lic") oLicense:ReadLicense() this give me an array with many variables for a sample LOCAL cFtp :=oLicense:cFtp LOCAL cUser := oLicense:cUser LOCAL cPW := oLicense:cPw LOCAL cFtpDir :=oLicense:cFtpDir LOCAL cUpdFile := "test.exe" LOCAL cLocalDir :=&qu...

Good evening,
unfortunately I can not see the answer/post of Cristobal.
Kind regards
Iris

Silvio,
please post how you evaluate the passwords in your exe.
------------------------------------------------------------------
BTW the solution Cristobal posted works perfectly.
Best regards
Otto

Otto, why you insert password on exe ? for a sample I insert aes cript strings on a ini file sample : ( this is part of my license class) [License]A1=dCfTZfLWOUdZPeAQ8TfcdVI=B1=aB2bpXPVP0tUC1=fyv7XdI2OsdDD9woMFbbcFAitQ==D1=DJu+zxbevEtbD4zA0fTbek0IycPQk+psSk3KwreiF1=bC2bpYd3uUFPJw==G1=VB3nbTY...

Otto

You need a good .exe shrinker\compression utility .. I use ASpack which is a commercial product .. never had any problems with the product .. prox 90 USD

http://www.aspack.com/aspack.html

Completely removes all text from the hex ..

Rick Lipkin

Thank you Cristobal your solution is working fine.
Best regards
Otto

Code: Select all  Expand view

Put al init of your code
 
#pragma TEXTHIDDEN( 1 )
 
#include "FiveWin.ch"
 
.../...
 
and at end of your code
 
#pragma TEXTHIDDEN( 0 )



 

Hello Armando,
thank you. But this is no solution.

Please look in the exe file:


Best regards,
Otto

Hello Otto:

Is not enough for you the ENCRYPT() and DECRYPT() Classes?

Here is a sample:

Code: Select all  Expand view

Encrypted :=  ENCRYPT("Armando","1234aeb")
MsgInfo(Encrypted)

Decrypted := DECRYPT(Encrypted,"1234aeb")
MsgInfo(Decrypted)

 

Regards

Hello I post this only for information. I was not aware that the username and password are visible in plain text in the EXE. Best regards, Otto https://mybergland.com/FWForum/PWClearText.jpg https://mybergland.com/FWForum/PWClearText1.jpg My very simple ...

https://blog.avira.com/a1-telekom-austria-hacked-user-data-stored-in-plain-text/ Hello, usually you are not personally affected. But in this case I have a little member web page with this company too. Only a landing page. But that shows again the importance ...