• Viernes 8 de Noviembre de 2024, 04:58

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - kasq

Páginas: [1]
1
MS Access / ENDURESER LA SEGURIDAD DE BD
« en: Martes 2 de Diciembre de 2008, 06:39 »
mi area de trabajo es:
Ms Visula Studio 2005 professional edition - .NET Framework 2.0.50727
REALIZE UNA CONEXION A UNA BASE DE DATOS EN ACCESS 2003 CON "Provider=Microsoft.Jet.OLEDB.4.0"
ComprUEBO EL usuario y clave usando La base de datos Y ME RESULTA PERFECTA.

QUISIERA ENDUREZER LA SEGURIDAD DE ACCESO A LA MISMA DESDE VS 2005 ENCRIPTANDO LA CONTRASEÑA DEL USUARIO CUANDO ESTE PASE POR LA FORMA DE LOGIN.
este es la adaptacion del codigo que he hecho asta el momento
Código: Text
  1. Imports System.Windows.Forms
  2. Imports System.Drawing
  3. Imports System.Data
  4. Imports System.Data.OleDb
  5. Public Class frmInicio
  6.     Private veces As Integer = 0
  7.     Private Const NumeroIntentos As Integer = 3
  8.     Private cadenaCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=transporte.mdb"
  9.  
  10.     Private Sub btnACEPTAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnACEPTAR.Click
  11.         'If TxtClave.Text = "911" Then
  12.         If ComprobarUsuario(txtNICK.Text, txtCLAVE.Text) Then
  13.             'Dim claveSHA As String = Me.generarClaveSHA1(Me.TxtClave.Text)
  14.             'If ComprobarUsuario(Me.TxtUsuario.Text, claveSHA) Then
  15.             Me.DialogResult = Windows.Forms.DialogResult.OK
  16.             'Form1.Show()
  17.         Else
  18.             veces = veces + 1
  19.             If veces < NumeroIntentos Then
  20.                 Label3.Text = "Quedan " & (NumeroIntentos - veces) & " intentos"
  21.                 Exit Sub
  22.             End If
  23.             Me.DialogResult = Windows.Forms.DialogResult.No
  24.         End If
  25.         Hide()
  26.     End Sub
  27.  
  28.     Private Sub btnSALIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSALIR.Click
  29.         Me.DialogResult = Windows.Forms.DialogResult.Cancel
  30.         Hide()
  31.     End Sub
  32.     Private Function ComprobarUsuario( _
  33.             ByVal IDUsuario As String, _
  34.             ByVal IDContraseña As String) As Boolean
  35.  
  36.         Dim cnn As OleDbConnection = Nothing
  37.         '
  38.         Try
  39.  
  40.             cnn = New OleDbConnection(cadenaCnn)
  41.             cnn.Open()
  42.  
  43.             Dim sel As New System.Text.StringBuilder
  44.  
  45.             sel.Append("SELECT COUNT (*) FROM Usuarios ")
  46.             sel.Append("WHERE IDUsuario = @IDUsuario AND IDContraseña = @IDContraseña")
  47.  
  48.             Dim cmd As New OleDbCommand(sel.ToString, cnn)
  49.  
  50.             cmd.Parameters.Add("@IDUsuario", OleDbType.VarChar, 50)
  51.             cmd.Parameters.Add("@IDContraseña", OleDbType.VarChar, 40)
  52.  
  53.             cmd.Parameters("@IDUsuario").Value = IDUsuario
  54.             cmd.Parameters("@IDContraseña").Value = IDContraseña
  55.  
  56.             Dim t As Integer = CInt(cmd.ExecuteScalar())
  57.  
  58.             cnn.Close()
  59.  
  60.             If t = 0 Then
  61.                 Return False
  62.             End If
  63.  
  64.         Catch ex As Exception
  65.             MessageBox.Show("ERROR al conectar a la base de datos: " & vbCrLf & _
  66.                         ex.Message, "Comprobar usuario", MessageBoxButtons.OK, _
  67.                         MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
  68.             Return False
  69.         Finally
  70.             If Not cnn Is Nothing Then
  71.                 cnn.Dispose()
  72.             End If
  73.         End Try
  74.  
  75.         Return True
  76.     End Function
  77. end class
  78.  

2
SQL Server / ERA ERROR
« en: Lunes 1 de Diciembre de 2008, 23:00 »
MUCHAS POR SU RESPUESTA Sr.

MUY BUENA EXPLICACION Y DETALLES LE ANTECEDEN A LA REPSUESTA.

ME AYUDO A COMPRENDER D EMANERA AMPLIa ESTE PEQUEÑO ERROR OK.
espero siempre contar con su ayuda. sino es molestia

THANK YOU Sr.
Código: Text
  1. ProfsorX
  2.  

3
SQL Server / ERROR de coneccion?
« en: Lunes 1 de Diciembre de 2008, 11:10 »
estoy trabajando con MS visual estudio 2005 professional edition (SOY UN BEGINNER , pero ahi tropezando algo se aprende)
Comprobar usuario y clave usando una base de datos - Ejemplo para Visual Basic .NET 2003 (.NET 1.1)
le he estado dando tratameinto a este pequeño codigo, una pequeña adaptacion , pero me sale un error el cual enumero a continuacion: ERROR al conectar a la base de datos: sintaxis incorrecta cerca de '='.
aqui esta mi codigo , lo que he podido transformar ahi
Código: Text
  1. Imports System.Data
  2. Imports System.Data.SqlClient
  3. Public Class frmInicio
  4.     Private veces As Integer = 0
  5.     Private Const numeroIntentos As Integer = 3
  6.     Private cadenaCnn As String = "Data Source = KELINONESQLEXPRESS; Initial Catalog = Usuarios; Integrated Security=True"
  7.  
  8.     Private Sub btnACEPTAR_Click( _
  9.     ByVal sender As System.Object, _
  10.     ByVal e As System.EventArgs) Handles btnACEPTAR.Click
  11.         If comprobarUsuario(Me.txtNICK.Text, Me.txtCLAVE.Text) Then
  12.             'If txtCLAVE.Text = "123" Then
  13.             Me.DialogResult = Windows.Forms.DialogResult.OK
  14.         Else
  15.             veces = veces + 1
  16.             If veces < numeroIntentos Then
  17.                 Label3.Text = "Quedan" & (numeroIntentos - veces) & "Intentos"
  18.                 Exit Sub
  19.             End If
  20.             Me.DialogResult = Windows.Forms.DialogResult.No
  21.         End If
  22.         Hide()
  23.     End Sub
  24.     Private Sub btnSALIR_Click _
  25.     (ByVal sender As System.Object, _
  26.     ByVal e As System.EventArgs) Handles btnSALIR.Click
  27.         Me.DialogResult = Windows.Forms.DialogResult.Cancel
  28.         Hide()
  29.     End Sub
  30.  
  31.     Private Function comprobarUsuario( _
  32.             ByVal IDUsuario As String, _
  33.             ByVal IDContraseña As String) As Boolean
  34.         Dim cnn As SqlConnection = Nothing
  35.  
  36.         Try
  37.             cnn = New SqlClient.SqlConnection(cadenaCnn)
  38.             cnn.Open()
  39.  
  40.             Dim sel As New System.Text.StringBuilder
  41.             sel.Append("SELECT COUNT (*) FROM Usuarios")
  42.             sel.Append("WHERE IdUsuario = @IDUsuario AND  IDContraseña= @IDContraseña")
  43.  
  44.             Dim cmd As New SqlClient.SqlCommand(sel.ToString, cnn)
  45.             cmd.Parameters.Add("@IDUsuario", SqlDbType.NVarChar, 50)
  46.             cmd.Parameters.Add("@IDContraseña", SqlDbType.NVarChar, 40)
  47.  
  48.             cmd.Parameters("@IDUsuario").Value = IDUsuario
  49.             cmd.Parameters("@IDContraseña").Value = IDContraseña
  50.  
  51.             Dim t As Integer = CInt(cmd.ExecuteScalar)
  52.             cnn.Close()
  53.             If t = 0 Then
  54.                 Return False
  55.             End If
  56.         Catch ex As Exception
  57.             MessageBox.Show("ERROR al conectar a la base de datos: " & vbCrLf & _
  58.                     ex.Message, "Comprobar usuario", MessageBoxButtons.OK, _
  59.                     MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
  60.             Return False
  61.         Finally
  62.             If Not cnn Is Nothing Then
  63.                 cnn.Dispose()
  64.             End If
  65.         End Try
  66.         Return True
  67.     End Function
  68.     Private Sub frmInicio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  69.  
  70.     End Sub
  71. End Class
  72.  

capas y el error es algo sencillo pero ya no puedo sabe r que es , e intentado algunas cosas pero es inutil, NO ME VENDRIA MAL UN POCO DE EAMYPUJDNAES
de antemano gracias por sus repsuetsas...

4
C/C++ / Re: Triangulo De Pascal
« en: Miércoles 4 de Junio de 2008, 00:37 »
alguien que desee asesorarme

como seria para insertar en la funcion ESCRIBETRIA

usando FOR & GOTOXY o si hay otra aplicacion

con gusto acepto la orientacion para contruir dicha instruccion


de antemano se lo agradesco, HELP

5
C/C++ / Triangulo De Pascal
« en: Viernes 30 de Mayo de 2008, 23:32 »
mi consulta es para que me faciliten ayuda de como hacer para que mi triangulo de pascal se imprima centrado en la pantalla

/*este es mi codigo, lo estoy trabajando en .C, esta basado en dos funciones, pascalbi que lo calcula  7 & escribetria que lo imprime, se me presenta que en la funcion escribetria debe ir la instrucción para que lo imprima centrado*\

/*podria ser con gotoxy y For*\

/*de antemano les agradesco su orientación con este programilla*\
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>

int n, x;
int i, j;

int activo;

void pascalbi(int n, int matrix[][10]);
void escribetria(int n, int matrix[][10]);

int main( )
{
   int matrix[11][11];
   clrscr();
   printf("Numero de escalones del triangulo: ");
   scanf("%d", &n);
   if ((n > 0) && (n<=10))
     {
      pascalbi (n, matrix);
      escribetria (n, matrix);
     }
   return 0;
}

void pascalbi(int n, int matrix[][10])
{
   for(i=0; i<=10; i++)
      for(j=0; j<=10; j++)
         matrix[j]=0;

   for(i=0; i<n; i++)
      for(j=0; j<=i; j++)
         if(j==0)
            matrix[j]=1;
         else
            matrix[j]=matrix[i-1][j-1]+matrix[i-1][j];

}

void escribetria(int n, int matrix[][10])
{
   printf("\n\n");
   activo=1;
   for(i=0; i<n; i++)
      {
        for(j=0; j<=i; j++)
      {
       if(activo==1)
          for(x=0; x<n-i+1; x++)
         printf("  ");
       activo=0;
       printf(" %d  ", matrix[j]);
      }
        activo=1;
        printf("\n\n");
        getch();
      }
}

Páginas: [1]