elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14
51  Programación / Programación Visual Basic / Re: [RETO] IsDate en: 13 Septiembre 2011, 03:58 am
Yo igual repare la mia...  :rolleyes:

Código
  1. Public Function IsDate_T(ByRef Expresion As String) As Boolean
  2. On Error GoTo err
  3. Dim A           As Integer
  4. Dim B           As Integer
  5. Dim C           As Integer
  6. Dim P1          As Integer
  7. Dim P2          As Integer
  8. Dim F           As Boolean
  9. Dim F2          As Boolean
  10.  
  11.             P1 = InStr(1, Expresion, "/")
  12.             If (Not CBool(P1)) Then Exit Function
  13.             P2 = InStr(P1 + 1, Expresion, "/")
  14.             If (Not CBool(P2)) Then Exit Function
  15.  
  16.             A = Mid(Expresion, 1, P1 - 1)
  17.             B = Mid(Expresion, P1 + 1, P2 - P1 - 1)
  18.             C = Mid(Expresion, P2 + 1, Len(Expresion))
  19.  
  20.             If (A And &H20) Then Exit Function
  21.             If (C And &H8000) Then Exit Function
  22.  
  23.             If (B And &H8) Then
  24.                 P1 = (B - &H8)
  25.                 If (P1 And &H4) Then
  26.                     P1 = (P1 - &H4)
  27.                     If (P1 And &H1) Then
  28.                         Exit Function
  29.                     Else
  30.                         F2 = True
  31.                     End If
  32.                 Else
  33.                     If (P1 And &H2) Then
  34.                         P1 = (P1 - &H2)
  35.                         If (P1 Or &H0) = &H0 Then F2 = True
  36.                     Else
  37.                         If (P1 Or &H0) = &H0 Then F2 = True
  38.                     End If
  39.                 End If
  40.             Else
  41.                 If (B And &H4) Then
  42.                     P1 = (B - &H4)
  43.                     If (P1 And &H2) Then
  44.                         P1 = (P1 - &H2)
  45.                         If (P1 And &H1) Then F2 = True
  46.                     Else
  47.                         If (P1 And &H1) Then F2 = True
  48.                     End If
  49.                 Else
  50.                     If (B And &H2) Then
  51.                         P1 = (B - &H2)
  52.                         If (P1 And &H1) Then F2 = True
  53.                     Else
  54.                         If (B And &H1) Then F2 = True
  55.                     End If
  56.                 End If
  57.             End If
  58.  
  59.             If (C And &H2000) Then
  60.                 P1 = (P1 - &H2000)
  61.                 If (P1 And &H400) Then
  62.                     P1 = (P1 - &H400)
  63.                     If (P1 And &H200) Then
  64.                         P1 = (P1 - &H200)
  65.                         If (P1 And &H100) Then
  66.                             P1 = (P1 - &H100)
  67.                             If (P1 And &H10) Then Exit Function
  68.                         End If
  69.                     End If
  70.                 End If
  71.             End If
  72.  
  73.             F = (((Not CBool((C Mod &H4))) And CBool(C Mod &H64)) Or (Not CBool(C Mod &H190)))
  74.  
  75.             IsDate_T = True
  76.  
  77.             If (A And &H10) Then
  78.                 P1 = (A - &H10)
  79.                 If (P1 And &H10) Then
  80.                     If ((Not F2) And (Not F)) Then IsDate_T = False
  81.                 Else
  82.                     If (P1 And &H8) Then
  83.                         P1 = (P1 - &H8)
  84.                         If (P1 And &H4) Then
  85.                             P1 = (P1 - &H4)
  86.                             If P1 Then
  87.                                 If (B = &H2) Then
  88.                                     If (Not F) Then
  89.                                         IsDate_T = False
  90.                                     Else
  91.                                         If (Not (P1 = &H1)) Then IsDate_T = False
  92.                                     End If
  93.                                 Else
  94.                                     If (P1 And &H2) Then
  95.                                         P1 = (P1 - &H2)
  96.                                         If (P1 And &H1) Then
  97.                                             IsDate_T = F2
  98.                                         Else
  99.                                             If (P1 Or &H0) = &H0 Then
  100.                                                 IsDate_T = F2
  101.                                             Else
  102.  
  103.                                                 IsDate_T = Not F2
  104.                                             End If
  105.                                         End If
  106.                                     End If
  107.                                 End If
  108.                             End If
  109.                         End If
  110.                     End If
  111.                 End If
  112.             End If
  113. err:
  114. End Function

@Psyke1: "31/02/2011" = True  :o

Salu2!
52  Programación / Programación Visual Basic / Re: situarme en x linea en: 11 Septiembre 2011, 20:39 pm
creo que el rt no divide por lineas, si no por numero de caracteres... podrias poner mas de tu proyecto, o fijate cuantos caracteres acepta por linea, luego haces un mid y listo  :P
53  Programación / Programación Visual Basic / Re: Aprender Apis desde 0(Solucionado) en: 11 Septiembre 2011, 05:11 am
usa google  :¬¬

http://allapi.mentalis.org/apilist/apilist.php
54  Programación / Programación Visual Basic / Re: winsocks en: 11 Septiembre 2011, 00:47 am
veo que no declaras la variable "GotDat", tal vez otras cosas que falten, para eso usa
Código
  1. Option explicit
55  Foros Generales / Foro Libre / Entrevista a Ing. En Sistemas Computacionales en: 6 Septiembre 2011, 02:57 am
Buenas noches (aca en mi querido pais), bueno cualquier ing en sistemas ya egresado que pueda ayudarme a contestar estas preguntas para un trabajo... se lo agradeceria mucho , la hago aqui ya que creo que hay mucha gente que tiene esta profesion, espero puedan ayudarme.. bueno aqui va el formato:

Citar
Nombre: _______________________________ Fecha: __________ Sexo: _________
Empresa/Institución En La Que Trabaja: _______________________
Tiempo De Servicio/Antigüedad: _______________
Escuela En La Que Estudio: ________________ A. Ingreso: __________
A. Egreso: _________ Titulado: ____ Maestría: ____ Doctorado: ____


1)   ¿Que le motivo a ser un ingeniero en sistemas computacionales?

2)   ¿Que tiempo le llevo encontrar un trabajo al finalizar su carrera?

3)   ¿Como aplica sus conocimientos obtenidos en la universidad en su vida profesional?

4)   ¿El aprendizaje obtenido, puede usted aplicarlo en su trabajo laboral o requirió mas aprendizaje?

5)   ¿Esta usted satisfecho con su trabajo actualmente y con la carrera que usted finalizo?

6)   ¿Cuanto tiempo lleva desarrollar un software para una empresa, y cuales son los costos que evalúan?

7)   ¿Que diferencias hay entre un ingeniero en sistemas computacionales y un licenciado en informática?

8)   ¿Que practicas predominantes y emergentes hay hoy en dia en la ingeniería en sistemas computacionales?

9)   ¿Es más fácil, difícil o igual manera ser ingeniero en sistemas computacionales hoy en dia? ¿Por que?

10)   ¿Cuales son las plataformas para desarrollo software mas usadas en el trabajo que usted realiza?

11)   ¿Con que otras áreas relaciona usted su carrera y puede desempeñarse en su ámbito laboral?

12)   ¿Como influye la ingeniería en sistemas coputacionales en la economía del país?

13)   ¿Cual es la contribución de un ingeniero en sistemas computacionales a nivel tecnológico y científico?

14)   ¿Como mejoran los ingenieros en sistemas computacionales la seguridad y la administración de las empresas?

Gracias por su tiempo para contestarlas, un saludo !.
56  Seguridad Informática / Análisis y Diseño de Malware / Re: Reto # Crear malware inofensivo en: 6 Septiembre 2011, 02:40 am
Cita de: $Edu$ en  6 Septiembre 2011, 02:38 am
Obviamente hay que dar el codigo, y aparte el .exe, sin codigo no

No hay problema  :laugh:, estare al tanto del tema para ver cuando se empieza.., salu2 !
57  Seguridad Informática / Análisis y Diseño de Malware / Re: Reto # Crear malware inofensivo en: 6 Septiembre 2011, 02:30 am
Me apunto, solo quieres el exe, es decir no importa el lenguaje... , salu2  :D
58  Programación / Programación Visual Basic / Re: Sonido al Msgbox en: 4 Septiembre 2011, 18:25 pm
Podrias hacer tu propio msgbox, con un control de usuario o simplemente un formulario, asi podrias reproducir cualquier sonido cuando este sea llamado, un saludo !
59  Programación / Programación Visual Basic / Re: [RETO] IsDate en: 29 Agosto 2011, 02:38 am
Código
  1. Public Function IsDate_T(ByRef Expresion As String) As Boolean
  2. On Error GoTo err
  3. Dim A           As Integer
  4. Dim B           As Integer
  5. Dim C           As Integer
  6. Dim P1          As Integer
  7. Dim P2          As Integer
  8. Dim F           As Boolean
  9.  
  10.             P1 = InStr(1, Expresion, "/")
  11.             If (Not CBool(P1)) Then Exit Function
  12.             P2 = InStr(P1 + 1, Expresion, "/")
  13.             If (Not CBool(P2)) Then Exit Function
  14.  
  15.             A = Mid(Expresion, 1, P1)
  16.             B = Mid(Expresion, P1 + 1, P2 - P1)
  17.             C = Mid(Expresion, P2 + 1, Len(Expresion))
  18.  
  19.             F = (((Not CBool((C Mod 4))) And CBool(C Mod 100)) Or (Not CBool(C Mod 400)))
  20.             IsDate_T = Not ((C < 0) Or (C > 9999) Or (A < 1) Or (B < 1) Or (B > 12) Or (F And (A > 29) And (B = 2)) Or (Not F And (A > 28) And (B = 2)))
  21. err:
  22. End Function

Me pude haber ahorrado variables... pero el codigo no quedaria bien explicado y tal vez seria mas lento, o bien usar el "truco" del vb con una variable de tipo Date  :xD
Salu2 !  :P
60  Seguridad Informática / Análisis y Diseño de Malware / Re: Tecnicas de propagación mas efectivas ? en: 19 Agosto 2011, 23:16 pm
Si, el famoso bug del mp3, incluso hay otro bug del autorun... yo hize un spread aprovechandome de estos dos bugs, nunca lo probe al 100% de efectividad
http://www.virtualforos.com/showthread.php?173883-Indetectables-Spread-Mp3(Propaga-tu-server-en-.mp3)

^DeMoN^ ... me suena tu nick  :silbar: ,gracias por la invitación !, salu2
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines