Beispiel #1
0
        private void BAceptar_Click(object sender, EventArgs e)
        {
            DataRow[] DRC;
            string    c1, c2;

            try
            {
                DRC = BD.Tabla("Usuarios").Select("Usuario='" + CUsuarios.Text + "'");

                TimeSpan duracion = DateTime.Parse(DRC[0].ItemArray[8].ToString()) - DateTime.Today;
                if (duracion.Days < 0)
                {
                    MessageBox.Show("Su licencia a Expirado");
                    Cr.VCerrar = true;
                    Close();
                    return;
                }

                c1 = DRC[0].ItemArray[2].ToString();
                c2 = Funciones.Encriptar(TClave.Text);

                if (c1 != c2)
                {
                    MessageBox.Show("Clave Incorrecta!!!");
                    return;
                }
                Cr.VNombre = CUsuarios.Text;

                Cr.VCerrar = false;
                Close();
            }
            catch (Exception ex)
            {
                Funciones.Log(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase), ex.Message + ex.StackTrace.Substring(ex.StackTrace.Length - 11));
            }
        }
Beispiel #2
0
        private void BAceptar_Click(object sender, EventArgs e)
        {
            DataRow[] DRC;
            DataRow   DR;
            string    Clave, espira;

            System.Threading.Thread TR = new System.Threading.Thread(Enviar);

            Clave = Funciones.Contra(6);

            if (TUsuario.TextLength <= 0)
            {
                MessageBox.Show("Escriba Usuario!!!");
                return;
            }
            if (TMail.TextLength <= 0)
            {
                MessageBox.Show("Escriba el correo!!!");
                return;
            }

            if (Convert.ToInt32(TDias.Text) <= 0)
            {
                MessageBox.Show("Escriba los días!!!");
                return;
            }

            if (!Funciones.validarEmail(TMail.Text))
            {
                MessageBox.Show("Escriba un correo válido!!!");
                return;
            }


            Tex  = "Hola,\n\r¡¡FELICITACIONES!! el acceso a AutoclickNews está listo.\n\rUsuario: " + TUsuario.Text + "\n\rContraseña: " + Clave + "\n\rBienvenido a bordo y que generes miles de dólares!\n\rLender & Jorge\n\rPD. No responder este correo ya que no lo revisamos.\n\r*****************************\n\r";
            Tex += "Hello,\n\r¡¡CONGRATULATIONS!! access to AutoClickNews is ready.\n\rUser: "******"\n\rPassword: "******"\n\rWelcome and generate thousands of dollars!\n\rLender & Jorge\n\rPD. Não responda este e-mail porque não revisado.\n\r*****************************\n\r";
            Tex += "Olá,\n\r¡¡PARABÉNS! acesso a AutoClickNews está pronto..\n\rUsuário: " + TUsuario.Text + "\n\rSenha: " + Clave + "\n\rBem-vindo e gerar milhares de dólares!\n\rLender & Jorge\n\rPD. Do not reply this email because will not review.\n\r*****************************\n\r";

            espira = DTFecha.Value.AddDays(Convert.ToInt32(TDias.Text)).ToString("yyyy/MM/dd");

            try
            {
                DRC = BD.Tabla("Usuarios").Select("Usuario='" + TUsuario.Text + "' AND VIP='" + Vp + "'");
                if (DRC.Length > 0)
                {
                    if (MessageBox.Show("Usuario ya existe, ¿Desea Modificarlo?", "¡ADVERTENCIA!", MessageBoxButtons.YesNo) == System.Windows.Forms.DialogResult.Yes)
                    {
                        if (!(BD.BD("UPDATE Usuarios SET Correo='" + TMail.Text + "', Clave='" + Funciones.Encriptar(Clave) + "', Administrador=" + CHAdmin.Checked + ", VIP=" + Vp + ", Expira='" + espira + "' WHERE Usuario='" + TUsuario.Text + "'")))
                        {
                            MessageBox.Show("Revise los datos, el registro no puede ser guardado");
                            return;
                        }
                        DR                  = BD.NuevoR("Usuarios");
                        DR["Usuario"]       = TUsuario.Text;
                        DR["Clave"]         = Funciones.Encriptar(Clave);
                        DR["Correo"]        = TMail.Text;
                        DR["Administrador"] = CHAdmin.Checked;
                        DR["Expira"]        = espira;
                        DR["VIP"]           = Vp;
                        BD.Eliminar("Usuarios", DRC[0]);
                        BD.Agregar("Usuarios", DR);
                        Mailto = DR["Correo"].ToString();
                        Tit    = "AutoClickNews Access / Acceso AutoclickNews / Acesso AutoClickNews";
                        TR.Start();
                    }
                    return;
                }
                if (!(BD.BD(string.Format("INSERT INTO Usuarios (Usuario,Clave,Administrador,VIP,Correo,Expira) values ('{0}','{1}',{2},{3},'{4}','{5}')", TUsuario.Text, Funciones.Encriptar(Clave), CHAdmin.Checked, Vp, TMail.Text, espira))))
                {
                    MessageBox.Show("Revise los datos, el registro no puede ser guardado");
                    return;
                }
                DR                  = BD.NuevoR("Usuarios");
                DR["Usuario"]       = TUsuario.Text;
                DR["Clave"]         = Funciones.Encriptar(Clave);
                DR["Administrador"] = CHAdmin.Checked;
                DR["Correo"]        = TMail.Text;
                DR["Expira"]        = espira;
                DR["VIP"]           = Vp;
                BD.Agregar("Usuarios", DR);
                Mailto = DR["Correo"].ToString();
                Tit    = "AutoClickNews Access / Acceso AutoclickNews / Acesso AutoClickNews";
                TR.Start();
            }
            catch (Exception ex)
            {
                Funciones.Log(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase), ex.Message + ex.StackTrace.Substring(ex.StackTrace.Length - 11));
            }
        }