| |
|
451
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 4 Mayo 2007, 20:18 pm
|
Te e arreglado la tuya: Dim Des As String
Public Function descifrar(Ruta As String) 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, "ðððð", "Ü")
descifrar = Ruta
End Function
Private Sub Command1_Click()
Des = descifrar("####$$&&***%/***")
MsgBox Des
End Sub Eran errores muy basicos, conviene que te leas mas sobre VB antes de empezar a hacer segun que proyectos...  Un Saludo. |
|
|
|
|
453
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 4 Mayo 2007, 17:23 pm
|
Para la carpeta System32 no hay ninguna (que yo sepa), la otra que te da la carpeta de windows es %Systemroot%. Temporales --> tmp Archivos de programa --> Programfiles Si quieres ver todas esas variables, ve a la consola, escribe set y pulsa enter.... Un Saludo.  |
|
|
|
|
454
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 4 Mayo 2007, 14:49 pm
|
Mira, te paso una fucnion mucho mas simple que eso, aki tienes: Public Function crypt(j)
On Error Resume Next
For R = 1 To Len(j)
crypt = crypt & Chr(Asc(Mid(j, R, 1)) Xor 7)
Next
End Function Esta funcion cifra y descifra a la vez, ya que usa Xor. Un Saludo. |
|
|
|
|
456
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 3 Mayo 2007, 23:37 pm
|
Ya te lo dije, tienes que buscar alguna funcion que encripte una cadena de texto, luego buscas la que lo desencripte, abres un proyecto nuevo en VB, pones la funcion encriptadora y ahces que aparezca el resutlado del texto encritpado en el textbox, lo copias y lo pones en la funcion que quieres ejecutar, pasandole la funcion desencriptadora....algo asi: Encritpas esto: C:\Archivo.exe te queda asi: hgd5b5td4b luego, pones esto: kill funciondesencriptadora("hgd5b5td4b")lo que hace esto es pasarle al comando kill, el argumento ya desencritpado, es decir, C:\archivo.exe Un Saludo. |
|
|
|
|
457
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 2 Mayo 2007, 22:06 pm
|
Para lo de encriptacion de cadenas te dejo algo: http://www.google.es/search?hl=es&client=firefox-a&rls=org.mozilla%3Aes-ES%3Aofficial&hs=rQf&q=cifrar+cadenas+VB&btnG=B%C3%BAsqueda&meta=http://foro.elhacker.net/index.php?topic=156434.0;prev_next=nextsi yo quiero guardarlo solo en system32 necesito esta api solamente... o la otra tb?? Benru te a dado todo el codigo que necesitas....  Te lo recopilo un poquito: En un modulo: Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
En el formulario: Dim system32 As String
Dim windows As String
Public Function RutaSystem32()
Dim Car As String * 128
Dim Longitud, Es As Integer
Dim Camino As String
Longitud = 128
Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
system32 = Camino
End Function
Public Function RutaWindows()
Dim Car As String * 128
Dim Longitud, Es As Integer
Dim Camino As String
Longitud = 128
Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
windows = Camino
End Function
Private Sub Form_Load()
RutaSystem32
MsgBox system32
End Sub Un Saludo. |
|
|
|
|
458
|
Media / Diseño Gráfico / Re: interfaz de mi jueguecillo
|
en: 2 Mayo 2007, 21:56 pm
|
|
A mi me gustan bastante esos bordes de las esquinas, incluso los pondria todo continuado por arriba y por abajo, sin los lados....
Y ya que estamos, en que lengauje lo estas ahciendo??? en VB???
para dibujar el mapa y demas cosas, usas tiles???
Un Saludo y felicidades pro el juego, llevo un mes tratando de empezar alguno y todavia no tengo nada claro...xDDD
|
|
|
|
|
459
|
Programación / Programación Visual Basic / Re: copiar a system o system 32
|
en: 2 Mayo 2007, 21:35 pm
|
Es un error bastante comun presuponer que el windows esta instalado en el disco C:\....para asegurarte, utiliza la api GetSystemDirectory que te va a dar como resutlado: <HD>:\<carpeta de Windows>\System32 Otra cosa que puedes hacer es ocultarlo a la vista del usuario, es decir, dejando el archivo como archivo oculto, con el comando SetAttrTambien te recomiendo que si vas a usar VBS para añadirte al registro, encriptes las cadenas para evitar la heuristica de ciertos antivirus (Por ejemplo el Nod32). Un Saludo. |
|
|
|
|
|
| |
|
Mostrar Mensajes