public static byte[] ConvertToArray(ref string strInput)
{
byte[] functionReturnValue = null;
//UPGRADE_ISSUE: clsCryptoAPI object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
clsCryptoAPI cCrypto = null;
cCrypto = new clsCryptoAPI();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.StringToByteArray. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
functionReturnValue = cCrypto.StringToByteArray(strInput);
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
return functionReturnValue;
}
public static bool Correct_Password_Length(ref byte[] arPWord)
{
bool functionReturnValue = false;
short intLength = 0;
string strPWord = null;
//UPGRADE_ISSUE: clsCryptoAPI object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
clsCryptoAPI cCrypto = null;
cCrypto = new clsCryptoAPI();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ByteArrayToString. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strPWord = cCrypto.ByteArrayToString(arPWord);
intLength = Strings.Len(strPWord);
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
if (intLength == 0) {
Interaction.MsgBox("A Password / Passphrase must be entered.", MsgBoxStyle.Information | MsgBoxStyle.OkOnly, "Password / Passphrase missing");
functionReturnValue = false;
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
return functionReturnValue;
}
if (intLength < 8) {
// If not a valid length
Interaction.MsgBox("Password / Passphrase must be a minimum length of eight(8) characters.", MsgBoxStyle.Information | MsgBoxStyle.OkOnly, "Invalid Password / Passphrase length");
functionReturnValue = false;
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
return functionReturnValue;
}
functionReturnValue = true;
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
return functionReturnValue;
}
private void cmdClose_Click(System.Object eventSender, System.EventArgs eventArgs)
{
string lCode = null;
string leCode = null;
string lPassword = null;
ADODB.Recordset rs = default(ADODB.Recordset);
short x = 0;
CDKey = false;
string strSerial = null;
string strTmp = null;
short intDate = 0;
short intYear = 0;
short intMonth = 0;
string dtDate = null;
string dtMonth = null;
string dtYear = null;
string stPass = null;
// clsCryptoAPI
//UPGRADE_ISSUE: clsCryptoAPI object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
clsCryptoAPI cCrypto = null;
if (modRecordSet.openConnection()) {
rs = modRecordSet.getRS(ref "SELECT * From Company");
if (rs.RecordCount) {
//if old database don't chk secuirty
if (rs.Fields.Count <= 55) {
CDKey = false;
Interaction.MsgBox("You need to download latest 4POS upgrades in order to Register.", MsgBoxStyle.Critical, "4POS");
return;
}
txtFields.Text = Strings.Trim(Strings.Replace(txtFields.Text, "-", ""));
cCrypto = new clsCryptoAPI();
//clsCryptoAPI
System.Windows.Forms.Application.DoEvents();
txtFields.Text = Strings.LTrim(txtFields.Text);
txtFields.Text = Strings.RTrim(txtFields.Text);
txtFields.Text = Strings.Trim(txtFields.Text);
//strTmp = cCrypto.ConvertStringFromHex(Left(rs("Company_ResMS"), 6))
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ConvertStringFromHex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strTmp = cCrypto.ConvertStringFromHex(Strings.Left(txtFields.Text, Strings.Len(txtFields.Text) - 5));
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.StringToByteArray. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arData = cCrypto.StringToByteArray(strTmp);
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.StringToByteArray. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arPWord = cCrypto.StringToByteArray(Conversion.Val(Strings.Right(txtFields.Text, 5)));
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.password. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
cCrypto.PassWord = arPWord;
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.InputData. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
cCrypto.InputData = System.Text.UnicodeEncoding.Unicode.GetString(arData);
System.Windows.Forms.Application.DoEvents();
// Decrypt the data input from the encrypted text box
//If cCrypto.Decrypt(g_intHashType, m_intCipher) Then
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.Decrypt. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if (cCrypto.Decrypt(2, 1)) {
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.OutputData. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arData = cCrypto.OutputData.Clone();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ByteArrayToString. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strSerial = cCrypto.ByteArrayToString(arData);
}
if (Strings.Left(strSerial, 3) == "met") {
//Create date password
if (Information.IsNumeric(Strings.Mid(strSerial, 4, Strings.Len(strSerial)))) {
strSerial = Strings.Mid(strSerial, 4, Strings.Len(strSerial));
intYear = Convert.ToInt16(Strings.Mid(strSerial, 5, 2));
intMonth = Convert.ToInt16(Strings.Mid(strSerial, 3, 2));
intDate = Convert.ToInt16(Strings.Left(strSerial, 2));
if ((intDate / 2) == System.Math.Round(intDate / 2)) {
intDate = intDate / 2;
} else {
goto jumpOut;
}
if ((intMonth / 3) == System.Math.Round(intMonth / 3)) {
intMonth = intMonth / 3;
} else {
goto jumpOut;
}
if ((intYear / 4) == System.Math.Round(intYear / 4)) {
intYear = intYear / 4;
} else {
goto jumpOut;
}
stPass = "******";
if (Strings.Len(Convert.ToString(intYear)) == 1)
stPass = stPass + "0" + intYear + "/";
else
stPass = stPass + intYear + "/";
if (Strings.Len(Convert.ToString(intMonth)) == 1)
stPass = stPass + "0" + intMonth + "/";
else
stPass = stPass + intMonth + "/";
if (Strings.Len(Convert.ToString(intDate)) == 1)
stPass = stPass + "0" + intDate;
else
stPass = stPass + intDate;
if (Information.IsDate(stPass)) {
if (Convert.ToDateTime(stPass) >= (System.Date.FromOADate(DateAndTime.Today.ToOADate() - 31))) {
modRecordSet.cnnDB.Execute("UPDATE Company SET Company_ResMS = '" + txtFields.Text + "';");
CDKey = true;
}
}
} else {
Interaction.MsgBox("Not a Valid 4MEAT Key!", MsgBoxStyle.Critical);
}
} else {
Interaction.MsgBox("Not a Valid 4MEAT Key!", MsgBoxStyle.Critical);
}
jumpOut:
cCrypto = null;
// Free the Crypto class from memory
strTmp = new string(Strings.Chr(0), 250);
// overwrite data in temp variable
//Exit Sub
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
}
public static bool Same_As_Previous(ref byte[] arByte1, ref byte[] arByte2)
{
bool functionReturnValue = false;
string strTmp1 = null;
string strTmp2 = null;
//UPGRADE_ISSUE: clsCryptoAPI object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
clsCryptoAPI cCrypto = null;
cCrypto = new clsCryptoAPI();
// ---------------------------------------------------------------------------
// Convert byte arrays to string data
// ---------------------------------------------------------------------------
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ByteArrayToString. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strTmp1 = cCrypto.ByteArrayToString(arByte1);
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ByteArrayToString. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strTmp2 = cCrypto.ByteArrayToString(arByte2);
// ---------------------------------------------------------------------------
// Make the comparisons to see if these two arrays are the same
// ---------------------------------------------------------------------------
if (Strings.StrComp(strTmp1, strTmp2, CompareMethod.Binary) == 0) {
functionReturnValue = true;
} else {
functionReturnValue = false;
}
// ---------------------------------------------------------------------------
// Empty data strings
// ---------------------------------------------------------------------------
strTmp1 = new string(Strings.Chr(0), 250);
strTmp2 = new string(Strings.Chr(0), 250);
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
return functionReturnValue;
}
private void cmdClose_Click(System.Object eventSender, System.EventArgs eventArgs)
{
// ERROR: Not supported in C#: OnErrorStatement
clsCryptoAPI cCrypto = null;
// clsCryptoAPI
string strSerial = null;
string strTmp = null;
ADODB.Recordset rs = default(ADODB.Recordset);
ADODB.Recordset rj = default(ADODB.Recordset);
//Piracy check
System.DateTime lastCDKeyDate = default(System.DateTime);
lastCDKeyDate = System.Date.FromOADate(DateAndTime.Today.ToOADate() - 356);
//check if he is backdating while on the cd-key screen
if (DateAndTime.Today != modApplication.loginDate) {
if (DateAndTime.Today < (System.Date.FromOADate(modApplication.loginDate.ToOADate() - 30))) {
Interaction.MsgBox("ErrorCode:31 - The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
}
//
//check if he is changing the date before the install date
strSerial = Strings.FormatDateTime(modApplication.instalDate, DateFormat.ShortDate);
modApplication.instalDate = Convert.ToDateTime(strSerial);
strSerial = "";
if (Convert.ToDateTime(modApplication.instalDate) > DateAndTime.Today) {
Interaction.MsgBox("ErrorCode:64 - The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
//
//check if current key is not older then the last used key (if any)
// ERROR: Not supported in C#: OnErrorStatement
rs = modRecordSet.getRS(ref "SELECT TOP 1 * FROM POS ORDER BY POS_CID DESC;");
if (rs.RecordCount) {
if (Strings.InStr(1, rs.Fields("POS_Code").Value, Strings.Chr(255))) {
lastCDKeyDate = getCDKeyDate(ref Convert.ToString(Strings.Split(rs.Fields("POS_Code").Value, Strings.Chr(255))[1]));
}
}
//Piracy check
txtFields.Text = Strings.Trim(Strings.Replace(txtFields.Text, "-", ""));
if (Strings.Len(txtFields.Text) < 23) {
Interaction.MsgBox("The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
cCrypto = new clsCryptoAPI();
//clsCryptoAPI
System.Windows.Forms.Application.DoEvents();
txtFields.Text = Strings.LTrim(txtFields.Text);
txtFields.Text = Strings.RTrim(txtFields.Text);
txtFields.Text = Strings.Trim(txtFields.Text);
txtFields.Text = Strings.Replace(txtFields.Text, " ", "");
//strTmp = cCrypto.ConvertStringFromHex(Left(txtFields.Text, 6))
strTmp = cCrypto.ConvertStringFromHex(Strings.Left(txtFields.Text, Strings.Len(txtFields.Text) - 5));
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.StringToByteArray(strTmp);
System.Windows.Forms.Application.DoEvents();
arPWord = cCrypto.StringToByteArray(Conversion.Val(Strings.Right(txtFields.Text, 5)));
System.Windows.Forms.Application.DoEvents();
cCrypto.PassWord = arPWord;
System.Windows.Forms.Application.DoEvents();
cCrypto.InputData = System.Text.UnicodeEncoding.Unicode.GetString(arData);
System.Windows.Forms.Application.DoEvents();
// Decrypt the data input from the encrypted text box
//If cCrypto.Decrypt(g_intHashType, m_intCipher) Then
if (cCrypto.Decrypt(2, 1)) {
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.OutputData.Clone();
strSerial = cCrypto.ByteArrayToString(arData);
}
//If strSerial = "pos" Then
short intDate = 0;
short intYear = 0;
short intMonth = 0;
string dtDate = null;
string dtMonth = null;
string dtYear = null;
string stPass = null;
if (Strings.Left(strSerial, 3) == "pos") {
//Create date password
if (Information.IsNumeric(Strings.Mid(strSerial, 4, Strings.Len(strSerial)))) {
strSerial = Strings.Mid(strSerial, 4, Strings.Len(strSerial));
intYear = Convert.ToInt16(Strings.Mid(strSerial, 5, 2));
intMonth = Convert.ToInt16(Strings.Mid(strSerial, 3, 2));
intDate = Convert.ToInt16(Strings.Left(strSerial, 2));
if ((intDate / 2) == System.Math.Round(intDate / 2)) {
intDate = intDate / 2;
} else {
goto jumpOut;
}
if ((intMonth / 3) == System.Math.Round(intMonth / 3)) {
intMonth = intMonth / 3;
} else {
goto jumpOut;
}
if ((intYear / 4) == System.Math.Round(intYear / 4)) {
intYear = intYear / 4;
} else {
goto jumpOut;
}
stPass = "******";
if (Strings.Len(Convert.ToString(intYear)) == 1)
stPass = stPass + "0" + intYear + "/";
else
stPass = stPass + intYear + "/";
if (Strings.Len(Convert.ToString(intMonth)) == 1)
stPass = stPass + "0" + intMonth + "/";
else
stPass = stPass + intMonth + "/";
if (Strings.Len(Convert.ToString(intDate)) == 1)
stPass = stPass + "0" + intDate;
else
stPass = stPass + intDate;
if (Information.IsDate(stPass)) {
if (Convert.ToDateTime(stPass) < lastCDKeyDate) {
Interaction.MsgBox("ErrorCode:97 - The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
if (Convert.ToDateTime(stPass) < 01/01/2012 00:00:00) {
Interaction.MsgBox("ErrorCode:82 - The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
rs = modRecordSet.getRS(ref "Select TOP 1 * FROM Sale ORDER BY SaleID DESC;");
if (rs.RecordCount) {
if (Convert.ToDateTime(stPass) < System.Date.FromOADate(rs.Fields("Sale_Date").Value - 30)) {
Interaction.MsgBox("ErrorCode:28 - The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
this.Close();
return;
}
}
if (Convert.ToDateTime(stPass) >= (System.Date.FromOADate(DateAndTime.Today.ToOADate() - 31))) {
//Dim rs As Recordset
//Dim rj As Recordset
//Set rs = getRS("Select * FROM POS WHERE POS_Code = '" & Trim(strCDKey) & "'")
// If rs.RecordCount > 0 Then
// MsgBox "This CD has already been used for Installation. A 4POS CD is licensed for 1 Computer only, Please Insert next 4POS CD for the additional POS terminal you wish to Install.", vbApplicationModal + vbInformation + vbOKOnly, App.title
// CDKey = False
// Else
// CDKey = True
// End If
//
// cnnDB.Execute "UPDATE Company SET Company_ResMS = '" & txtFields.Text & "';"
// CDKey = True
// ERROR: Not supported in C#: OnErrorStatement
rs = modRecordSet.getRS(ref "Select * FROM POS;");
while (rs.EOF == false) {
if (Strings.InStr(1, rs.Fields("POS_Code").Value, Strings.Chr(255))) {
if (Strings.Split(rs.Fields("POS_Code").Value, Strings.Chr(255))[1] == txtFields.Text) {
Interaction.MsgBox("This CD has already been used for Installation. A 4POS CD is licensed for 1 Computer only, Please Insert next 4POS CD for the additional POS terminal you wish to Install.", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _4PosBackOffice.NET.My.MyProject.Application.Info.Title);
CDKey = false;
goto jumpOut;
}
}
rs.moveNext();
}
//all validation OK
CDKey = true;
basCryptoProcs.strCDKey = txtFields.Text;
} else {
Interaction.MsgBox("This '4POS CD Key' is expired!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
goto jumpOut;
}
}
} else {
Interaction.MsgBox("The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
goto jumpOut;
}
} else {
//MsgBox "Not a Valid 4POS CD or CD Key!", vbCritical
Interaction.MsgBox("The '4POS CD Key' is invalid!", MsgBoxStyle.Exclamation, "4POS REGISTRATION");
CDKey = false;
}
jumpOut:
cCrypto = null;
// Free the Crypto class from memory
strTmp = new string(Strings.Chr(0), 250);
// overwrite data in temp variable
cmdClose.Focus();
System.Windows.Forms.Application.DoEvents();
//CDKey = False
this.Close();
Err_Close:
//If Err.Number = 0 Then
//Else
//End If
// ERROR: Not supported in C#: ResumeStatement
}
private System.DateTime getCDKeyDate(ref string posCDKey)
{
// ERROR: Not supported in C#: OnErrorStatement
clsCryptoAPI cCrypto = null;
// clsCryptoAPI
string strSerial = null;
string strTmp = null;
cCrypto = new clsCryptoAPI();
//clsCryptoAPI
System.Windows.Forms.Application.DoEvents();
//strTmp = cCrypto.ConvertStringFromHex(Left(txtFields.Text, 6))
strTmp = cCrypto.ConvertStringFromHex(Strings.Left(posCDKey, Strings.Len(posCDKey) - 5));
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.StringToByteArray(strTmp);
System.Windows.Forms.Application.DoEvents();
arPWord = cCrypto.StringToByteArray(Conversion.Val(Strings.Right(posCDKey, 5)));
System.Windows.Forms.Application.DoEvents();
cCrypto.PassWord = arPWord;
System.Windows.Forms.Application.DoEvents();
cCrypto.InputData = System.Text.UnicodeEncoding.Unicode.GetString(arData);
System.Windows.Forms.Application.DoEvents();
// Decrypt the data input from the encrypted text box
//If cCrypto.Decrypt(g_intHashType, m_intCipher) Then
if (cCrypto.Decrypt(2, 1)) {
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.OutputData.Clone();
strSerial = cCrypto.ByteArrayToString(arData);
}
//If strSerial = "pos" Then
short intDate = 0;
short intYear = 0;
short intMonth = 0;
string dtDate = null;
string dtMonth = null;
string dtYear = null;
string stPass = null;
if (Strings.Left(strSerial, 3) == "pos" | Strings.Left(strSerial, 3) == "pre") {
//Create date password
if (Information.IsNumeric(Strings.Mid(strSerial, 4, Strings.Len(strSerial)))) {
strSerial = Strings.Mid(strSerial, 4, Strings.Len(strSerial));
intYear = Convert.ToInt16(Strings.Mid(strSerial, 5, 2));
intMonth = Convert.ToInt16(Strings.Mid(strSerial, 3, 2));
intDate = Convert.ToInt16(Strings.Left(strSerial, 2));
if ((intDate / 2) == System.Math.Round(intDate / 2)) {
intDate = intDate / 2;
} else {
goto jumpOut;
}
if ((intMonth / 3) == System.Math.Round(intMonth / 3)) {
intMonth = intMonth / 3;
} else {
goto jumpOut;
}
if ((intYear / 4) == System.Math.Round(intYear / 4)) {
intYear = intYear / 4;
} else {
goto jumpOut;
}
stPass = "******";
if (Strings.Len(Convert.ToString(intYear)) == 1)
stPass = stPass + "0" + intYear + "/";
else
stPass = stPass + intYear + "/";
if (Strings.Len(Convert.ToString(intMonth)) == 1)
stPass = stPass + "0" + intMonth + "/";
else
stPass = stPass + intMonth + "/";
if (Strings.Len(Convert.ToString(intDate)) == 1)
stPass = stPass + "0" + intDate;
else
stPass = stPass + intDate;
if (Information.IsDate(stPass)) {
// If CDate(stPass) >= (Date - 31) Then
}
}
}
jumpOut:
cCrypto = null;
// Free the Crypto class from memory
strTmp = new string(Strings.Chr(0), 250);
// overwrite data in temp variable
return Convert.ToDateTime(stPass);
}
private bool checkSecurity()
{
bool functionReturnValue = false;
int intMonth = 0;
int intYear = 0;
string lCode = null;
string leCode = null;
string lPassword = null;
ADODB.Recordset rs = default(ADODB.Recordset);
short x = 0;
functionReturnValue = false;
string strSerial = null;
object strTmp = null;
short intDate = 0;
string dtDate = null;
string dtMonth = null;
string dtYear = null;
string stPass = null;
// clsCryptoAPI
clsCryptoAPI cCrypto = null;
if (modRecordSet.openConnection()) {
rs = modRecordSet.getRS(ref "SELECT * From Company");
if (rs.RecordCount) {
//if old database don't chk secuirty
if (rs.Fields.Count <= 55){functionReturnValue = true;return functionReturnValue;}
if (Information.IsDBNull(rs.Fields("Company_ResMS").Value)){functionReturnValue = false;return functionReturnValue;}
cCrypto = new clsCryptoAPI();
//clsCryptoAPI
System.Windows.Forms.Application.DoEvents();
//strTmp = cCrypto.ConvertStringFromHex(Left(rs("Company_ResMS"), 6))
strTmp = cCrypto.ConvertStringFromHex(Strings.Left(rs.Fields("Company_ResMS").Value, Strings.Len(rs.Fields("Company_ResMS").Value) - 5));
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.StringToByteArray(strTmp);
System.Windows.Forms.Application.DoEvents();
arPWord = cCrypto.StringToByteArray(Conversion.Val(Strings.Right(rs.Fields("Company_ResMS").Value, 5)));
System.Windows.Forms.Application.DoEvents();
cCrypto.PassWord = arPWord;
System.Windows.Forms.Application.DoEvents();
cCrypto.InputData = System.Text.UnicodeEncoding.Unicode.GetString(arData);
System.Windows.Forms.Application.DoEvents();
// Decrypt the data input from the encrypted text box
//If cCrypto.Decrypt(g_intHashType, m_intCipher) Then
if (cCrypto.Decrypt(2, 1)) {
System.Windows.Forms.Application.DoEvents();
arData = cCrypto.OutputData.Clone();
strSerial = cCrypto.ByteArrayToString(arData);
}
if (Strings.Left(strSerial, 3) == "veg") {
//Create date password
if (Information.IsNumeric(Strings.Mid(strSerial, 4, Strings.Len(strSerial)))) {
functionReturnValue = true;
goto jumpOut;
strSerial = Strings.Mid(strSerial, 4, Strings.Len(strSerial));
intYear = Strings.Mid(strSerial, 5, 2);
intMonth = Strings.Mid(strSerial, 3, 2);
intDate = Convert.ToInt16(Strings.Left(strSerial, 2));
if ((intDate / 2) == System.Math.Round(intDate / 2)) {
intDate = intDate / 2;
} else {
goto jumpOut;
}
if ((intMonth / 3) == System.Math.Round(intMonth / 3)) {
intMonth = intMonth / 3;
} else {
goto jumpOut;
}
if ((intYear / 4) == System.Math.Round(intYear / 4)) {
intYear = intYear / 4;
} else {
goto jumpOut;
}
stPass = "******";
if (Strings.Len(Convert.ToString(intYear)) == 1) {
stPass = stPass + "0" + intYear + "/";
} else {
stPass = stPass + intYear + "/";
}
if (Strings.Len(Convert.ToString(intMonth)) == 1) {
stPass = stPass + "0" + intMonth + "/";
} else {
stPass = stPass + intMonth + "/";
}
if (Strings.Len(Convert.ToString(intDate)) == 1)
stPass = stPass + "0" + intDate;
else
stPass = stPass + intDate;
if (Information.IsDate(stPass)) {
if (Convert.ToDateTime(stPass) >= (System.Date.FromOADate(DateAndTime.Today.ToOADate() - 31))) {
functionReturnValue = true;
}
}
} else {
//MsgBox "Not a Valid 4MEAT Key!", vbCritical
}
} else {
//MsgBox "Not a Valid 4MEAT Key!", vbCritical
}
jumpOut:
cCrypto = null;
// Free the Crypto class from memory
strTmp = new string(Strings.Chr(0), 250);
return functionReturnValue;
// overwrite data in temp variable
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
return functionReturnValue;
}
private bool checkSecurity()
{
bool functionReturnValue = false;
object intMonth = null;
object intYear = null;
string lCode = null;
string leCode = null;
string lPassword = null;
ADODB.Recordset rs = default(ADODB.Recordset);
short x = 0;
functionReturnValue = false;
string strSerial = null;
object strTmp = null;
short intDate = 0;
string dtDate = null;
string dtMonth = null;
string dtYear = null;
string stPass = null;
// clsCryptoAPI
//UPGRADE_ISSUE: clsCryptoAPI object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
clsCryptoAPI cCrypto = null;
if (modRecordSet.openConnection()) {
rs = modRecordSet.getRS(ref "SELECT * From Company");
if (rs.RecordCount) {
//if old database don't chk secuirty
if (rs.Fields.Count <= 55){functionReturnValue = true;return functionReturnValue;}
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
if (Information.IsDBNull(rs.Fields("Company_ResMS").Value)){functionReturnValue = false;return functionReturnValue;}
cCrypto = new clsCryptoAPI();
//clsCryptoAPI
System.Windows.Forms.Application.DoEvents();
//strTmp = cCrypto.ConvertStringFromHex(Left(rs("Company_ResMS"), 6))
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ConvertStringFromHex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
//UPGRADE_WARNING: Couldn't resolve default property of object strTmp. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strTmp = cCrypto.ConvertStringFromHex(Strings.Left(rs.Fields("Company_ResMS").Value, Strings.Len(rs.Fields("Company_ResMS").Value) - 5));
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.StringToByteArray. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arData = cCrypto.StringToByteArray(strTmp);
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.StringToByteArray. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arPWord = cCrypto.StringToByteArray(Conversion.Val(Strings.Right(rs.Fields("Company_ResMS").Value, 5)));
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.password. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
//UPGRADE_TODO: Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetString() which may not have the same behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="93DD716C-10E3-41BE-A4A8-3BA40157905B"'
cCrypto.PassWord = arPWord;
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.InputData. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
//UPGRADE_TODO: Code was upgraded to use System.Text.UnicodeEncoding.Unicode.GetString() which may not have the same behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="93DD716C-10E3-41BE-A4A8-3BA40157905B"'
cCrypto.InputData = System.Text.UnicodeEncoding.Unicode.GetString(arData);
System.Windows.Forms.Application.DoEvents();
// Decrypt the data input from the encrypted text box
//If cCrypto.Decrypt(g_intHashType, m_intCipher) Then
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.Decrypt. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if (cCrypto.Decrypt(2, 1)) {
System.Windows.Forms.Application.DoEvents();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.OutputData. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
arData = cCrypto.OutputData.Clone();
//UPGRADE_WARNING: Couldn't resolve default property of object cCrypto.ByteArrayToString. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strSerial = cCrypto.ByteArrayToString(arData);
}
if (Strings.Left(strSerial, 3) == "liq") {
//Create date password
if (Information.IsNumeric(Strings.Mid(strSerial, 4, Strings.Len(strSerial)))) {
functionReturnValue = true;
goto jumpOut;
strSerial = Strings.Mid(strSerial, 4, Strings.Len(strSerial));
//UPGRADE_WARNING: Couldn't resolve default property of object intYear. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
intYear = Strings.Mid(strSerial, 5, 2);
//UPGRADE_WARNING: Couldn't resolve default property of object intMonth. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
intMonth = Strings.Mid(strSerial, 3, 2);
intDate = Convert.ToInt16(Strings.Left(strSerial, 2));
if ((intDate / 2) == System.Math.Round(intDate / 2)) {
intDate = intDate / 2;
} else {
goto jumpOut;
}
//UPGRADE_WARNING: Couldn't resolve default property of object intMonth. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if ((intMonth / 3) == System.Math.Round(intMonth / 3)) {
//UPGRADE_WARNING: Couldn't resolve default property of object intMonth. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
intMonth = intMonth / 3;
} else {
goto jumpOut;
}
//UPGRADE_WARNING: Couldn't resolve default property of object intYear. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if ((intYear / 4) == System.Math.Round(intYear / 4)) {
//UPGRADE_WARNING: Couldn't resolve default property of object intYear. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
intYear = intYear / 4;
} else {
goto jumpOut;
}
stPass = "******";
//UPGRADE_WARNING: Couldn't resolve default property of object intYear. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if (Strings.Len(Convert.ToString(intYear)) == 1) {
stPass = stPass + "0" + intYear + "/";
} else {
//UPGRADE_WARNING: Couldn't resolve default property of object intYear. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
stPass = stPass + intYear + "/";
}
//UPGRADE_WARNING: Couldn't resolve default property of object intMonth. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if (Strings.Len(Convert.ToString(intMonth)) == 1) {
stPass = stPass + "0" + intMonth + "/";
} else {
//UPGRADE_WARNING: Couldn't resolve default property of object intMonth. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
stPass = stPass + intMonth + "/";
}
if (Strings.Len(Convert.ToString(intDate)) == 1)
stPass = stPass + "0" + intDate;
else
stPass = stPass + intDate;
if (Information.IsDate(stPass)) {
if (Convert.ToDateTime(stPass) >= (System.Date.FromOADate(DateAndTime.Today.ToOADate() - 31))) {
functionReturnValue = true;
}
}
} else {
//MsgBox "Not a Valid 4MEAT Key!", vbCritical
}
} else {
//MsgBox "Not a Valid 4MEAT Key!", vbCritical
}
jumpOut:
//UPGRADE_NOTE: Object cCrypto may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
cCrypto = null;
// Free the Crypto class from memory
//UPGRADE_WARNING: Couldn't resolve default property of object strTmp. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
strTmp = new string(Strings.Chr(0), 250);
return functionReturnValue;
// overwrite data in temp variable
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
} else {
Interaction.MsgBox("Unable to locate the '4POS Application Suite' database.", MsgBoxStyle.Critical, "4POS");
//End
}
return functionReturnValue;
}
