Mensajes

Yo estoy trabajando con el VB6 en W7 de 64 bits, para poder instalarlo has de hacer una pequeña modificacion en el instalador:

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/vb_6_en_windows_7_64bits-t261925.0.html

Lo mejor seria que tomara la hora y fecha de un servidor publico ya qué hay muchas PC con horas erróneas y la verdad qué no es rentable (de alguna manera) si se toma la hora locamente por ejemplo!¡.

Realmente la hora da igual para este algoritmo, simplemente es necesaria la fecha
Aqui tienes un codigo que saca la fecha :

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetRealDay
' Author    : Karcrack
' DateTime  : 20/01/2009  17:15
' Purpose   : Obtener la fecha actual...
'---------------------------------------------------------------------------------------

Option Explicit

Public Function GetDate(Optional ByVal sFormat As String = "DD-MM-YYYY") As String
   Dim oHttp       As Object 'New WinHttp.WinHttpRequest
   Dim sData       As String
   
   'Cargamos el WinHttp
   Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
   With oHttp
       'Establecemos el metodo de conexion y la URL
       .Open "GET", "http://www.larazon.es/"
       'Enviamos la peticion
       .Send
       'Obtenemos el resultado
       sData = .ResponseText
   End With
   'Descargamos el WinHttp
   Set oHttp = Nothing
   'Obtenemos la fecha
   sData = Split(Split(sData, Replace$("<p class='fecha_actualizacion'><span>", "'", Chr$(34)))(1), " </span>")(0)
   'Y le damos formato =D
   GetDate = Format$(sData, sFormat)
End Function

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/src_obtener_la_fecha_real-t242329.0.html;msg1168082

Saludos

Le pido el mejor inhibidor de ondas del mercado

[Utilidad?]

Código (vb) [Seleccionar] Expandir

Public Function GenerateDomain(ByVal dDate As Date, Optional ByVal lLength As Long = 5) As String
   Const sCharSet  As String = "abcdefghijklmnopqrstuvwxyz0123456789qwertyuiopasdfghjklñzxcvbnm0987654321"
   Dim sSuffix     As String
   Dim iDay        As Single
   Dim iMonth      As Single
   Dim iYear       As Single
   Dim lNumb       As Long
   Dim i           As Long
   Dim lPos        As Long
   
   iDay = Day(dDate)
   iMonth = Month(dDate)
   iYear = Year(dDate)
   
   sSuffix = Choose(((iMonth Xor iDay) Mod 9) + 1, "com", "net", "es", "co.uk", "ws", "org", "us", "info", "mx")
   
   lNumb = ((iYear And &HFF00&) \ &H100) * ((iDay * (Tan(iYear And &HFF))) Xor Cos(iMonth * 10))
   lNumb = Abs(lNumb)
   If lNumb Mod 2 Then lNumb = lNumb Xor (iYear \ (iMonth * iDay))
   
   For i = 1 To lLength
       lPos = Abs(((lNumb * (i Xor lNumb / 2)) Mod Len(sCharSet)) - Len(sCharSet))
       GenerateDomain = GenerateDomain & Mid$(sCharSet, lPos, 1)
   Next i
   
   GenerateDomain = GenerateDomain & "." & sSuffix
End Function

Esta funcion genera un nombre de dominio en base a una fecha

Utilidad? No se si sabreis algo sobre BotNets... pero imaginemos que queremos controlar una red de Zombies y , claro, utilizar un dominio fijo para la manejarlos no es seguro, ya que te lo capan y se acabo la juerga... Asi que tu compras los dominios por ejemplo de forma semanal, y tus Zombies generan cada Domingo el dominio al que se conectaran... Tachan!

Espero que se entienda para que sirve

Un ejemplo de BotNet que utiliza este sistema es la conocidisima Conficker

Ejemplo para hoy:

Código (vb) [Seleccionar] Expandir

Debug.Print GenerateDomain(Now, 10)
Hoy tendriamos que comprar este dominio:

Código [Seleccionar] Expandir

ra8530yzvu.net

Nos costaria 6€ al año, y en una semana nos dariamos de baja... ese es el precio de mantener viva to BotNet 6€ por semana , tambien se podria aplicar este metodo con servicios web gratuitos... pero nosostros somos empresarios de los buenos

Saludos

He hecho la funcion de desabreviar

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
   Dim vItem       As Variant
   
   For Each vItem In DeAbbreviate("1|2|8|9|34|56~58|9999~10002|")
       Debug.Print vItem;
   Next vItem
End Sub

Public Function DeAbbreviate(ByVal sString As String) As Double()
   Dim bvTemp()    As String
   Dim i           As Long
   Dim n           As Long
   Dim w           As Long
   Dim dFir        As Double
   Dim dLas        As Double
   Dim bvResult()  As Double
   
   bvTemp = Split(sString, "|")
   
   For i = LBound(bvTemp) To UBound(bvTemp)
       If bvTemp(i) Like "*~*" Then
           dFir = Val(Split(bvTemp(i), "~")(0))
           dLas = Val(Split(bvTemp(i), "~")(1))
           ReDim Preserve bvResult(0 To (n + (dLas - dFir)))
           For n = n To (n + (dLas - dFir))
               bvResult(n) = dFir + w
               w = w + 1
           Next n
           w = 0
           n = n - 1
       ElseIf bvTemp(i) <> vbNullString Then
           ReDim Preserve bvResult(0 To n)
           bvResult(n) = bvTemp(i)
       End If
       n = n + 1
   Next i
   
   DeAbbreviate = bvResult
End Function

Supongo que se podria acortar un poco, pero creo que asi queda muy claro lo que hace

Saludos

Me ha gustado , ahora falta que hagas la funcion que des-abrevia , si no esto no tiene utilidad
Seria interesante que tambien pudiese detectar series de multiples por ejemplo...

Lo unico que no me gusta es que abusas de hacer las cosas en una linea, por ejemplo:

Código (vb) [Seleccionar] Expandir

If lActualNumber + c = lNumberList(n) Then n = n + 1: c = c + 1 Else Exit Do
A me me gusta mucho mas asi, se ve mejor la logica:

Código (vb) [Seleccionar] Expandir

If lActualNumber + c = lNumberList(n) Then
       n = n + 1
       c = c + 1
Else
       Exit Do
End If

Saludos

El problema de eso era que, si mal no recuerdo, URLDownloadToFile lo pillaban todos los Av`s o casi todos, por lo que costaría hacer un downloader FUD... 

Si quiere mostrar un porcentaje muy malware no sera...

Ademas, la deteccion no depende unicamente del uso del API, si no por ejemplo de no mostrar ningun formulario etc... todo es cuestion de probar

[URLDownloadToFile]

URLDownloadToFile

Código [Seleccionar] Expandir

http://msdn.microsoft.com/en-us/library/ms775123%28VS.85%29.aspx

Código [Seleccionar] Expandir

http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=64914&lngWId=1

Te lo muevo aqui, espero que te puedan ayudar mejor

Buen codigo Psyke, pero seria mas sencillo si trabajaras con Collections