Hola gente!
Aqui presento el
BCP (
Best
Cactus
Programmer). Presento este concurso para animar a la gente que programe sencillas funciones que cumplan unos requisitos y objetivos claros. Los ganadores seleccionados serán añadidos como "Colaboradores" en la ventana de "About" y en el "Leame" del nuevo Cactus Joiner, añadiendo su nick, mail y pagina web como motivo de agradecimiento.
Para ello voy a formular a lo largo de esta semana unas cuantas preguntas sobre programación. El primer usuario que responda mi problema correctamente se añadirá su código en el cactus y pondré su nick en los creditos.
Primera pregunta:Tengo una variable con una
ruta completa de un archivo, necesito sacar el
nombre del archivo completo y su
extensión. El nombre del archivo no tiene una longitud estática. Y la estensión del archivo suele ser de 3 carácteres, aunque podría tener más o menos carácteres. Pido una sencilla función con un solo parámetro de entrada (la ruta completa del archivo) y 2 variables de salida: El nombre del archivo y su extensión.
TERMINADO: Hendrix y WarGhostFUNCIÓN:Public Function ExtraerCadena(cadena As String, l As Long) As String
Dim FullName As String
FullName = Mid(cadena, InStrRev(cadena, "\") + 1)
Select Case l
Case 1
ExtraerCadena = Mid(FullName, 1, InStrRev(FullName, ".") - 1)
Case 2
ExtraerCadena = Mid(FullName, InStrRev(FullName, ".") + 1)
Case 3
ExtraerCadena = FullName
End Select
End Function
Citar1 = Devuelve el nombre
2 = Devuelve la extesion
3 = Devuelve el FullName
Segunda pregunta:Necesito una función para cifrar programas. No se puede usar la función XOR ya que nos puede aparecer el carácter Chr(0) (fin de cadena).
1) La función no puede ser muy extensa y no tiene que consumir muchos recursos.
2) Aparte tiene que ser recursiva (que sirva tanto para cifrar/descifrar opcional)
3) Si ciframos un virus con esa función, los AV no tienen que detectarlo
TERMINADO: HendrixFUNCIÓN:Public Function crypt(cadena As String) As String
crypt = StrReverse(cadena)
End Function
Tercera pregunta:Necesito una función (o varias) que me devuelvan
el nombre completo y su
extensión del propio programa que estamos ejecutando. Por ejemplo: Si el programa se llama '
hola.exe' que devuelva '
hola.exe' si se llama '
adios.bat' que devuelva '
adios.bat'. La variable
App.EXEName solo devuelve el nombre del ejecutable, pero no su extensión.
TERMINADO: Lympex[/b]
FUNCION:[/b]
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim nombre As String
nombre = String$(255, Chr$(0))
GetModuleFileName 0, nombre, Len(nombre)
MsgBox nombre
End Sub
Aki esta:
Public Function Sacarext(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String
For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "." Then
cont = cont + 1
End If
Next
a = Split(cadena, ".")
Sacarext = a(cont)
End Function
Public Function Sacarnombre(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String
For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
Next
a = Split(cadena, "\")
Sacarnombre = a(cont)
End Function
Private Sub Form_Load()
Dim cadena As String
Dim ruta As String
Dim ext As String
cadena = "C:\Hendrix\programa.exe"
ruta = Sacarnombre(cadena)
ext = Sacarext(cadena)
MsgBox ruta
MsgBox ext
End Sub
Salu2
Muchas grácias por el código Hendrix. Lo he probado y funciona de maravilla. Aunque creo que puede ser simplificado y mejorado en tan solo una sola función. Voy a dejar a ver si otro usuario se anima ha hacer lo mismo en una sola función.
De todas formas, por ser el primero y de haberte tomado la smolestias incluiré tu Nick en la sección de colaboradores del Cactus :)
Gracias por colaborar!! ::)
Aki esta remodelada:
Dim ruta As String
Dim ext As String
Public Function Sacartodo(cadena As String)
Dim a As Variant
Dim c As Variant
Dim cont As Integer
Dim cont2 As Integer
Dim b As String
For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
If b = "." Then
cont2 = cont2 + 1
End If
Next
a = Split(cadena, "\")
ruta = a(cont)
a = Split(cadena, ".")
ext = a(cont2)
End Function
Private Sub Form_Load()
Dim cadena As String
cadena = "C:\Hendrix\torero\programa.exe"
Sacartodo cadena
MsgBox ruta
MsgBox ext
End Sub
Salu2
bueno aquí la dejo mi aportación:
Public Function ExtraerCadena(cadena As String, l As Long) As String
Dim FullName As String
FullName = Mid(cadena, InStrRev(cadena, "\") + 1)
Select Case l
Case 1
ExtraerCadena = Mid(FullName, 1, InStrRev(FullName, ".") - 1)
Case 2
ExtraerCadena = Mid(FullName, InStrRev(FullName, ".") + 1)
Case 3
ExtraerCadena = FullName
End Select
End Function
Citar1 = Devuelve el nombre
2 = Devuelve la extesion
3 = Devuelve el FullName
;D Salu2, David
Bueno, Hendrix se ha tomado la molestian en responder el primero y encima mejorar su código. Y WarGhost ha hecho una función sencilla, rapida y eficaz, sin FOR ni SPLIT.
En esta primera prueba saldrán Hendrix y WarGhost como colaboradores de el cactus. Felicidades!!
Segunda parte
Asi a bote pronto te e echo esto:
Public Function crypt(cadena As String) As String
crypt = StrReverse(cadena)
End Function
xD xD xD es reversible....aunke es facililla de ver los AV's no lo cantarian...
Salu2
Ok, esto serviría, de momento te apunto y dejo el tema abierto a ver si alguien se le ilumina la bombilla y nos saca otra función :rolleyes:
Felicidades. Ojo que voy a ir trabajando sobre el primer post, si podreis ver que preguntas estan abiertas o cerradas y quienes con los actuales ganadores
Lo unico que podes lograr cifrando el codigo es que los AVs no detecten el exe bindeado. Al momento que desencriptes el bicho y lo ejecutes el AV lo va a detectar.
Si todavia necesitas cifrar, podes usar el metodo Huffman que ademas de cifrar reduce el codigo, haciendo el ejecutable final mas liviano.
Saludos.-
lo de la encriptacion huffman también se lo dije.
Cita de: NYlOn en 22 Octubre 2006, 22:56 PM
Lo unico que podes lograr cifrando el codigo es que los AVs no detecten el exe bindeado. Al momento que desencriptes el bicho y lo ejecutes el AV lo va a detectar.
ya pero si también adjuntas un Av-killer indetectable pues ya as sirve de algo.
;D Salu2
He puesto ya la tercera y última pregunta. Esta en el primer mensaje de todos, abajo de todo. Espero que puedan ayudarme
Saludos!! :rolleyes:
puff que jodido xD creo que lo mas optable es predefinir lo antes de ser creado el archivo sino chungo xD
para la opcion que estar sin terminar, se puede usar la API "GetModuleFileName" y cojer los 3 últimos caracteres http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/getmodulefilename.asp ;)
Exacto, y aki va un ejemplo en VB de como se utilizaria:
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
Private Sub Form_Load()
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
MsgBox ModuleName
End Sub
Salu2
Gracias Hendrix por el código, aunque la API nos la ha facilitado Lympex y también me escribió otro código más simple en un mensaje privado:
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim nombre As String
nombre = String$(255, Chr$(0))
GetModuleFileName 0, nombre, Len(nombre)
MsgBox nombre
End Sub
Creo que el ganador de la tercera es Lympex (aunque grácias por tu dedicación en este post Hendrix)
Saludos!!
Ok.... ;D ;D
Salu2
... ... Excelentes programadores ... ... ...
'
' Llamada a la API (???????????)
'
Property Get AppExe() As String
AppExe = App.Path
If (Right$(AppExe, 1) <> "\") Then AppExe = AppExe & "\"
AppExe = AppExe & App.EXEName & ".exe"
End Property
Aún más sublime la segunda solución que presentaron... acá les dejo una que consume 6GB de memoria física (?????)
Function GetBaseName(ByVal Filename As String) As String
On Error Resume Next
GetBaseName = Mid$(Filename, InStrRev(Filename, "\") + 1)
End Function
Y cifrado simple y rápida... hay ejemplos en el foro.
enig, que es esto?