Mensajes

jajajajaaajajjajajaajjajajajaa
azieliito tienes muuuchooo tiempo libreee jajaja

Seria una buena forma de recaudar fondos para que se siga manteniendo en pie y con buenos servicios la pagina; supongo que al admin le gustaria tener ingresos extras, a quien no verdad? y a mucha gente cosas con el logotipo del elhacker.net; a mi me gustaria tener un mousepad, una tanga no?


una taza elhacker.net para que me acompañe las noches de investigacion junto a mi Pc 

me parece o es span para la url del primer post?; podria haber posteado una foto para no poner en enlace a la web...

hay un fenomeno de Krackwar ??? 

seguro que alguien lo ha hecho... jajaja
no me seria extrañoo

es un chiiisteee, hace un tiempo lo lei por alli que lo publicaron ...
quien habra sido el HDP que lo habria hecho... jajajaja
ya imagino la cara de la esposa; aaaaii para que la proxima te haga el amor con ganas...

me ha gustado el primero y el segundo...
dime; todoo lo has hecho tuu? me refiero a los graficos? o has usado imagenes? si es asi podrias poner los recursos utilizados, para apreciar tu trabajo?

que cosa son los CD4? conoco poco de photoshop; alguien que me de una idea?

Si pudieras preparar  una guia de como hacerlo seria genial, me encantan estas cosas =]

Mira te dejo dos funciones que sirven para encryptar cadenas en VB 6.0; en .net nose, pero teniendo el codigo de vb lo puedes adaptar...
incluso yo lo traduci a JAVA; asi que es mas sencillo traducirlo a .net ....
no recuerdo quien es el autor, lo tengo varios años usando y es muy efectivo   

Código (vb) [Seleccionar] Expandir


Function cifra(ByVal Pass As String) As String
Dim clave As String, i As Integer, Pass2 As String
Dim CAR As String, Codigo As String
clave = "%ü&/@#$A"
Pass2 = ""
For i = 1 To Len(Pass)
  CAR = Mid(Pass, i, 1)
  Codigo = Mid(clave, ((i - 1) Mod Len(clave)) + 1, 1)
  Pass2 = Pass2 & Right("0" & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
Next i
cifra = Pass2
End Function

Function descifra(ByVal Pass As String) As String
Dim clave As String, i As Integer, Pass2 As String
Dim CAR As String, Codigo As String
Dim j As Integer

clave = "%ü&/@#$A"
Pass2 = ""
j = 1
For i = 1 To Len(Pass) Step 2
  CAR = Mid(Pass, i, 2)
  Codigo = Mid(clave, ((j - 1) Mod Len(clave)) + 1, 1)
  Pass2 = Pass2 & Chr(Asc(Codigo) Xor Val("&h" + CAR))
  j = j + 1
Next i
descifra = Pass2
End Function




Saludos

yo no se porque te haces problemas, el codigo que te postee da solucion a tus problemas ...
lo unico que no  hice es agregar lo que tu ya supuestamente sabias...
Para que no provoque errores, puedes agregar un "On Error goto Error" y abajo defines que las variables las setee vacias... y tienes todoooooooooo liiistoo, espero que te sea util

PD: procura declarar bien las variables antes de usarlas, es un buen habito de programacion

como no se va a poder, es muy facil hacer lo que pides; VB es mucho mas pontente de lo que creees....

tu te encargas de que se abra el archivo leyendo linea a linea (mira los posts anteriores, por alli esta), y esto se va guardando en la variable: linea ... y se obtienen todos los valores

Código (vb) [Seleccionar] Expandir


Dim Llave, Valor, Comentario As String
Dim linea As String

linea = "Path=C:\WINDOWS;Ruta de Windows"

Llave = Trim(Mid(linea, 1, InStr(1, linea, "=") - 1))
Valor = Trim(Mid(linea, InStr(1, linea, "=") + 1, InStr(1, linea, ";") - InStr(1, linea, "=") - 1))
Comentario = Trim(Mid(linea, InStr(1, linea, ";") + 1))

MsgBox Llave
MsgBox Valor
MsgBox Comentario