Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - Kizar

#351
Esta protecion es bastante simple tambien, pero un poco mas fuerte.

Tienen los detalles dentro de el zip en el archivo "Leame".

Intenten reventar la protecion y si pueden hacer un parcheador como el mio xD


http://kizar.webcindario.com/programas/Demo.zip

Salu2  ;)
#352
No solo lo e """"crackeao"""" sino k e echo un parcheador muy simple xD

http://kizar.webcindario.com/programas/Parcher.zip

Cuando pueda os pongo mi protecion a ver si podeis burlarla.

Salu2
#353
Pero a dicho en pcs diferentes, lo k se me ocurre son 2 cosas:


  • En XP los ejecutables no pueden ser editados mientras estan en memoria, pero la idea seria k tu programa estrallera de si mismo otro programa le arrancara , se cerrara y el otro archivo lee el final de el archivo y compara si es menos k el numero de veces.... si es menor añade uno y abre el programa, si es = o mayor no le abre.


  • En php seria muy simple acer so, solo tenes k abrir una web en el navegador con el programa, el inconveniente es k con k corte el internet a la ora de abrirlo no podria comprovar y funcionaria, y si no tene internet eso no te valdria.

Salu2
#354
Lo k encontre yo, pero no es mas corto...

Muestra todas las ips de un ekipo.
FUENTE: Api-Guide

Citar
Private Sub Command1_Click()
    Module1.Start
End Sub

''In Module1:

''******************************************************************
''Created By Verburgh Peter.
'' 07-23-2001
'' verburgh.peter@skynet.be
''-------------------------------------
''With this small application , you can detect the IP''s installed on your computer,
''including subnet mask , BroadcastAddr..
''
''I''ve wrote this because i''ve a programm that uses the winsock control, but,
''if you have multiple ip''s  installed on your pc , you could get by using the Listen
'' method the wrong ip ...
''Because Winsock.Localip => detects the default ip installed on your PC ,
'' and in most of the cases it could be the LAN (nic) not the WAN (nic)
''So then you have to use the Bind function ,to bind to your right ip..
''but how do you know & find that ip ?
''you can find it now by this appl.. it check''s in the api.. IP Table..
''******************************************************************


Const MAX_IP = 5   ''To make a buffer... i dont think you have more than 5 ip on your pc..

Type IPINFO
     dwAddr As Long   '' IP address
    dwIndex As Long ''  interface index
    dwMask As Long '' subnet mask
    dwBCastAddr As Long '' broadcast address
    dwReasmSize  As Long '' assembly size
    unused1 As Integer '' not currently used
    unused2 As Integer ''; not currently used
End Type

Type MIB_IPADDRTABLE
    dEntrys As Long   ''number of entries in the table
    mIPInfo(MAX_IP) As IPINFO  ''array of IP address entries
End Type

Type IP_Array
    mBuffer As MIB_IPADDRTABLE
    BufferLen As Long
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
Sub main()
Form1.Show
End Sub

''converts a Long  to a string
Public Function ConvertAddressToString(longAddr As Long) As String
    Dim myByte(3) As Byte
    Dim Cnt As Long
    CopyMemory myByte(0), longAddr, 4
    For Cnt = 0 To 3
        ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
    Next Cnt
    ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function

Public Sub Start()
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE

Form1.Text1 = ""

On Error GoTo END1
    GetIpAddrTable ByVal 0&, Ret, True

    If Ret <= 0 Then Exit Sub
    ReDim bBytes(0 To Ret - 1) As Byte
    ''retrieve the data
    GetIpAddrTable bBytes(0), Ret, False
     
    ''Get the first 4 bytes to get the entry''s.. ip installed
    CopyMemory Listing.dEntrys, bBytes(0), 4
    ''MsgBox "IP''s found : " & Listing.dEntrys    => Founded ip installed on your PC..
    Form1.Text1 = Listing.dEntrys & "   IP addresses found on your PC !!" & vbCrLf
    Form1.Text1 = Form1.Text1 & "----------------------------------------" & vbCrLf
    For Tel = 0 To Listing.dEntrys - 1
        ''Copy whole structure to Listing..
       '' MsgBox bBytes(tel) & "."
        CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
         Form1.Text1 = Form1.Text1 & "IP address                   : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf
         Form1.Text1 = Form1.Text1 & "IP Subnetmask            : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf
         Form1.Text1 = Form1.Text1 & "BroadCast IP address  : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf
         Form1.Text1 = Form1.Text1 & "**************************************" & vbCrLf
    Next

''MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr)
Exit Sub
END1:
MsgBox "ERROR"
End Sub

Salu2
#355
ya usaba el socketmaster peor este pones ws.localIP y no te muestra nada  :P

Salu2
#356
Y sin usar el control winsock como podria conocer mi ip, es k con las apis estuve mirando y son codes muy largos para algo tan sencillo....

Salu2
#358
Ya, pero lo k te instala es el Visual Studio, no solo el VB, y a mi la carpeta de el Visual Studio con todo me ocupa casi 1GB.

Salu2
#359
Gracias , pero me sirvio lo de Crack_X  ;)

Salu2
#360
Lo k ago aora es compararlo con los caracteres invalidos, pero funcina mal cuando hay saltos de linea.

Por eso quiero compararlo con los caracteres validos.

Salu2