CREANDO UN ANTIVIRUS

[yasmany]

ya se pusieron los grandes ha charlar
Eso q dice Arcrew es cierto el me ayudo MUCHAS GRACIAS pero dejadme q me elogie un poquito gggg no es tan dificil esos string pero BUENO
Gracias por lo de los guis "Me dieron mas animos " alfin les gusta algo
Estoy en otra movida en estos dias ....ya os enseñare...y porfa continuad ayudandome cuando los necesite

Y si quieren rectificar algo de lo dicho anteriormente DECIDMELO ...
Pues me he pasado matando todo estos dias completos de 8am hasta 3:30 pm entendiendo anlizando y controlando lo que hagoggg
ZALU2

[Ximorro]

Además es mucho más rápido comprobar un sólo "(" que "<unidad>", ja, ja.

Pues aún te voy a decir más, en este caso no es muy importante pero para evitar backtrackings sería más eficiente hacer la expresión regular como:
\(([^)]*?)\)

¿a qué mola? ahora se entiende más.
(en realidad en vez de un asterisco deberíamos usar un más, porque entiendo que no puede estar vacío ¿no?)

yasmany, estoy impresionado con el código. Creo que era ayer mismo que no entendías ni lo de las funciones y ahora ese código tiene una pinta FANTÁSTICA.

Pero lo de los checkboxes no lo voy a decir más veces...

[arkcrew]

Si Ximorro, deja mejor lo de los checkboxes, tarde o temprano le pasará y recurrirá al foro para revisarlo, a todos nos ha pasado...
Por lo demás, el código es interesante y la interfaz visual pinta estupendamente, lo suyo sería que instalaras los archivos mediante un instalador externo y así evitas que tengas que uisar los comandos fileinstall para ver las imagenes, lo que hace que el codigo engorde y tarde más en cargarse...
Creo que hay una alternativa para utilizar el resource hacker para insertar en el propio ejecutable los recursos, pero no se muy bien como funciona, asi que a mi parecer , lo más comodo es que instalases la aplicacion mediante un setup..

Lo demás en general está genial, por lo que veo, esta aplicacion solo muestra archivos ocultos, que no necesariamente son malware.. la historia interesante la vas a tener a la hora de detectar cuando un programa es malware o no.. quizas, si mal no recuerdo, había una página (http://www.virustotal.com/) a la que enviabas un archivo y lo analizaba, quizas, este seía un buen método para detectar malware, aunque, nose, se ve un tanto chapucero, sería lo suyo implementar alguna funcion...

Ya nos contarás como lo haces

Un saludo!

[yasmany]

Ok........ ME SORPRENDEN......que mi code les sorprenda pero bueno PUES COMO LO HE DICHO ANTES ME HE PASADO DIAS ENTEROS TRANTANDO DE ENTEDER Y ME PONIA TIPEAR no ha hacer CTRL+C Y CTRL+V por q no aprenderia nada de ese modo,,
Continuaré leyendo aunque a veces me da a las 2 de la mañana
hASTA LA PROXIMA CONSULTA....
tengo unas foticos q hice MONTAJES si las quisieran ver BUsquen en Facebook Yasmany Curimilma o Yasmany Michael Curimilma
Bueno ahi se ven carnales
ZALU2

[Ximorro]

arkcrew creo que es demasiada faena hacer un instalador a un programa pequeño, total para añadir una imagen. Es que el instalador va a ocupar más que el propio programa, ja, ja.
Así no está mal, además es portable y fácil de usar, no hay que instalarlo, simplemente lo copias donde quieres y lo ejecutas.
La gestión del jpg es buena, pues lo pone en el temporal y borra el archivo cuando acaba con él. Si acaso lo que haría es cambiarle el nombre, que "12.jpg" es como muy genérico, yo pondría algo más personalizado para que sea más difícil que colisione con algo que ya pueda haber en el temporal.

Eso otra opción que comentas la veo aquí más interesante que el instalador, se puede insertar el jpg en los resources del exe, pero no es tan fácil de usar, hay que leerlo como binario puro y generar un archivo de imagen en memoria... Esto ya es complicarse, yo en realidad no sé cómo se hace, pero por el foro inglés había una udf para gestionar los resources.

Respecto a este programa efectivamente yo tampoco le veo una gran utilidad funcional, pero si con él yasmany ha aprendido tanto la utilidad que ha tenido es insuperable. También tengo ganas de ver cómo funciona lo del antivirus, creo que decía que tendrá una lista de nombres de archivos maliciosos y comprobará si hay algún ejecutable con ese nombre ¿puede ser?

[yasmany]

Hola carnales he corregido el pequeño programa pues me he dado cuenta q lanzaba un mensaje q no deberia aparecer en ese momento y tambien el contenido del list no se quitaba cuando seleccionaba la frase "Seleccione la unidad" pero ya esta resuelto

Código: Seleccionar todo

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=folder.ico
#AutoIt3Wrapper_Outfile=Show_AND_Hide_Files.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=Software gratuito [email protected]
#AutoIt3Wrapper_Res_Description=Desocultador de archivos y carpetas
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Yasmany Curimilma
#AutoIt3Wrapper_Res_Language=1034
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>

FileInstall("12.jpg", @TempDir & "\", 1)

Global $unidad

$GUI = GUICreate("Hide and Show", 250, 370, -1, -1)
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic(@TempDir & "\12.jpg", 0, 0, 250, 50)
$desocultar = GUICtrlCreateButton("Desocultar", 175, 335, 70, 30)
$ocultar = GUICtrlCreateButton("Ocultar", 105, 335, 70, 30)
$combo = GUICtrlCreateCombo("Seleccione la unidad", 10, 60, 230, -1, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $CBS_UPPERCASE)) ;#include <ComboConstants.au3>

obtenerUnidades()
$lista = GUICtrlCreateList("", 10, 85, 230, 210)
GUICtrlSetColor(-1, 0x666666)
GUISetState()
$ch_SelectAll = GUICtrlCreateCheckbox("Realizar accion para toda la lista", 10, 290, 240, 16)
$ch_mostrarTodos = GUICtrlCreateCheckbox("Mostrar todos los archivos", 10, 310, 240, 16)
GUICtrlCreateLabel("By: YMCT", 12, 345, 80, 50)
GUICtrlSetFont(-1, 9, 800, 0, "MS Serif")
GUICtrlSetState(-1, $GUI_DISABLE)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			FileDelete(@TempDir & "\12.jpg")
			Exit
		Case $combo
			verOcultos()

		Case $ch_mostrarTodos
			AllFiles()

		Case $desocultar
			startShow()
		Case $ocultar
			startHide()
	EndSwitch
WEnd


Func obtenerUnidades()
	$var = DriveGetDrive("All")
	If Not @error Then
		For $i = 1 To $var[0]
			If DriveStatus($var[$i]) <> "READY" Then
			Else
				GUICtrlSetData($combo, DriveGetLabel($var[$i]) & " (" & $var[$i] & ")")
			EndIf
		Next
	EndIf
EndFunc   ;==>obtenerUnidades

Func valorOut()
	$comboContenido1 = StringReplace(GUICtrlRead($combo), "(", "<unidad>")
	$comboContenido2 = StringReplace($comboContenido1, ")", "</unidad>")
	$unidad1 = StringRegExp($comboContenido2, "<(?i)unidad>(.*?)</(?i)unidad>", 1, 1)
	$unidad = $unidad1[0]

EndFunc   ;==>valorOut

Func verOcultos()
	If GUICtrlRead($ch_mostrarTodos) = $GUI_CHECKED Then
		AllFiles()
	Else
		GUICtrlSetColor($lista, 0x666666)
		GUICtrlSetData($lista, "")
		If GUICtrlRead($combo) = "Seleccione la unidad" Then
			GUICtrlSetState($ocultar, $GUI_DISABLE)
			GUICtrlSetState($desocultar, $GUI_DISABLE)
		Else
			valorOut(); tomo los valores comprendidos en el item del combo
			$status = DriveStatus($unidad)
			If StringInStr($status, "NOREADY") Then
				MsgBox(48, "Aviso", "Unidad no disponible")
			ElseIf StringInStr($status, "INVALID") Then
				MsgBox(48, "Aviso", "Unidad no disponible")
			Else
				GUICtrlSetState($ocultar, $GUI_ENABLE)
				GUICtrlSetState($desocultar, $GUI_ENABLE)

				$search = FileFindFirstFile($unidad & "\*.*")
				While 1
					$file = FileFindNextFile($search)
					If @error Then ExitLoop

					$estado = FileGetAttrib($unidad & "\" & $file)
					If StringInStr($estado, "H") Then
						GUICtrlSetData($lista, $unidad & "\" & $file)
					EndIf

				WEnd
				FileClose($search)
			EndIf
		EndIf
	EndIf
EndFunc   ;==>verOcultos

Func AllFiles()
	If GUICtrlRead($combo) = "Seleccione la unidad" Then
		GUICtrlSetData($lista, "")
	Else
		valorOut()

		If FileExists($unidad) Then
			If GUICtrlRead($ch_mostrarTodos) = $GUI_CHECKED Then
				GUICtrlSetData($lista, "")
				$search = FileFindFirstFile($unidad & "\*.*")
				While 1
					$file = FileFindNextFile($search)
					If @error Then ExitLoop
					GUICtrlSetData($lista, $unidad & "\" & $file)

				WEnd
				FileClose($search)
				GUICtrlSetColor($lista, 0x000000)
			Else
				verOcultos()
			EndIf
		Else
			MsgBox(16, "Aviso", "La unidad no está disponible")
		EndIf
	EndIf
EndFunc   ;==>AllFiles

Func startShow()
	$verifi = GUICtrlRead($combo)
	If ($verifi) = "Seleccione la unidad" Then

		MsgBox(48, "Aviso", "Debe selecionar la unidad")
		GUICtrlSetState($combo, $GUI_FOCUS)
	Else
		valorOut()
		If FileExists($unidad) Then

			$est = GUICtrlRead($ch_SelectAll)
			If ($est) = $GUI_CHECKED Then
				$search = FileFindFirstFile($unidad & "\*.*")
				While 1
					$file = FileFindNextFile($search)
					If @error Then ExitLoop
					FileSetAttrib($unidad & "\" & $file, "-sh")

				WEnd
				FileClose($search)
				verOcultos()
			Else
				$select = GUICtrlRead($lista)
				If $select == "" Then
					MsgBox(48, "Aviso", "Debe seleccionar un item de la lista")
				ElseIf not ($select) Then
					MsgBox(48, "Aviso", "Elemento no encontrado")
				Else
					FileSetAttrib($select, "-raSH")

					$verificar = FileGetAttrib($select)
					If StringInStr($verificar, "H") Then
						MsgBox(16, "Aviso", "Acceso denegado")
					Else
						MsgBox(64, "Aviso", "Listo", 1)
						verOcultos()
					EndIf
				EndIf

			EndIf
		Else
			MsgBox(48, "Aviso", "Unidad no disonible")

		EndIf
	EndIf


EndFunc   ;==>startShow

Func startHide()
	$verifi = GUICtrlRead($combo)
	If ($verifi) = "Seleccione la unidad" Then

		MsgBox(48, "Aviso", "Debe selecionar la unidad")
		GUICtrlSetState($combo, $GUI_FOCUS)
	Else
		valorOut()
		If FileExists($unidad) Then

			$est = GUICtrlRead($ch_SelectAll)
			If ($est) = $GUI_CHECKED Then
				$search = FileFindFirstFile($unidad & "\*.*")
				While 1
					$file = FileFindNextFile($search)
					If @error Then ExitLoop
					FileSetAttrib($unidad & "\" & $file, "+sh")

				WEnd
				FileClose($search)
				verOcultos()
			Else
				$select = GUICtrlRead($lista)
				If $select == "" Then
					MsgBox(48, "Aviso", "Debe seleccionar un item de la lista")
				ElseIf not ($select) Then
					MsgBox(48, "Aviso", "Elemento no encontrado")
				Else
					FileSetAttrib($select, "+rash")

					$verificar = FileGetAttrib($select)
					If StringInStr($verificar, "H") Then
						MsgBox(64, "Aviso", "Listo", 1)

					Else
						MsgBox(16, "Aviso", "Acceso denegado")

					EndIf
				EndIf

			EndIf
		Else
			MsgBox(48, "Aviso", "Unidad no disponible")

		EndIf
	EndIf
EndFunc   ;==>startHide

AHORA TENGO UN INCONVENIENTE me olvidado de controlar el combo
Cuando retiro la memoria...EN el combo todavia me aparece esa unidad PERO CLARO si la selecciona yo le puse q cuando no este disponible me salga un mensaje..
Pero mi preguna es ¿Cómo hago para q cuando retire la unidad ;esta desaparesca de la lista del combo?
Le he puesto un GUICtrlSetData($combo,"") pero no me da resultado

ZALU2

[arkcrew]

MMM, pues así de primeras lo único que se me ocurre es que pongas una condición que se ejecute cada poco tiempo, por ejemplo, dentro del while algo para que recargue el combo con las unidades listas...

Nose si funcionara. pero es una idea , ponla en práctica y ns cuentas

Saludos!

[Chefito]

Pero mi preguna es ¿Cómo hago para q cuando retire la unidad ;esta desaparesca de la lista del combo?

Se puede hacer de varias formas. Por ejemplo, mira este post: http://www.emesn.com/autoitforum/viewto ... =usb#p8005

Los códigos son algo complicados. El primer método es por wmi y el segundo captura los eventos. Muy interesante el 2º si no quieres estar revisando continuamente el estado de la unidad usb .

si mal no recuerdo, había una página (http://www.virustotal.com/) a la que enviabas un archivo y lo analizaba, quizas, este seía un buen método para detectar malware, aunque, nose, se ve un tanto chapucero, sería lo suyo implementar alguna funcion...

Si lo veo un tanto chapucero, ya que sería muy lento, pero podría ser una muy buena opción aparte para un programa antivirus (auxiliar). Mira este post: http://www.emesn.com/autoitforum/viewto ... tal#p11137
Para probar estos códigos te tienes que bajar estas librerías. Buscalas por aquí o en el foro ingles.

Con estas dos respuestas te digo: EL QUE BUSCA ENCUENTRA . Intenta buscar antes de preguntar .

Respecto a hacer un antivirus, ya lo ha intentado algún usuario por aquí en el pasado. Busca en el foro. Sería conseguir las firmas de los virus de algún sitio e intentar trabajar con estas. No lo veo nada facil. No lo veo un buen proyecto porque ya hay muchos buenos antivirus gratuítos, y que se actualizan diariamente.

Saludos.

[yasmany]

Hola de nuevo
Bueno "gracias por el post "

Un buen antivirus no va a restablecer la info q esta mas q oculta de tu FlashMemory y tambien talves te borren los accesos directos AVECES HAy TE LOS DEJA
Hasta el cmd te bloquea...
Y ahora q das tu criterio... voy a ponerle una opcion ([x]Vacunar) entonces ya no volveran a introducirse los "virus" (malware)

No creo q haigan Buenos antivirus q hagan eso("No digo q lo mio sea un buen antivirus... es simplemente algo de ayuda para las personas q utilizan ordenadores bajo windows")

Sarcasmo?? pues si

No todas las personas pueden evadir malware...por lo que caen facilmente
Una aplicacion malintencionada no la detecta los antivirus SOLO q sea el caso de q esté infectada por troyanos y esas cosas


ZALU2

[arkcrew]

Hola Yasmany

Por lo que dices, veo que tienes en bastante baja estima los softwares actuales contra malware/sppyware y demás basuras que trae internet, pero también debes tener en cuenta, que te va a ser muy dificil superar lo que un montón de ingenieros informáticos contratados por estas empresas no consiguen..
Quizás tu utilidad sea útil en diversos aspectos y si que nos pueda proteger de algunos malwares, pero ten en cuenta que eso va a ser muy muy complicado ya que cada día salen más y más softwares maliciosos en la red, y no todos siguen los mismos patrones, muchos son recompilados o re-empaquetados para modificar la estructura y que no sean detectables, por tanto, si tu no sabes de la existencia de algunos, te va a ser muy dificil por no decir imposible esta tarea...

Siempre es posible intentarlo, pero va a ser una tarea muy tediosa y te va a llevar demasiados quebraderos de cabeza, haber algo tan completo requiere de mucho esfuerzo y de estar constantemente al día sobre las bases de virus...

Algo que se me ocurre, que no sé si es posible, y si se pudiera, dudo seriamente de su legalidad... es que consiguieras interpretar el funcionamiento de las bases de firmas de los antivirus, así, tu utilidad contaría con las firmas de virus de un montón de antivirus, como puede ser el kaspersky el eset norton panda etc, con lo cual si que tendrías más informació sobre los visrus actuales, pero ya te digo, estoy desvariando, siquiera sé si es posible...

Un saludo!

[yasmany]

Hola arkcrew ..
Mi proyecto no es complicado q se diga....... BUENO si lo es POR lo q no puedo programar como vosotros
pero lo q hace MI SOFTWARE es super sencillo no os preocupeis por eso...ya lo habia explicado anteriormente
SOLO decia q mi software hace cosas q la mayoria de antivirus no hace AUNQUE ES DE MUCHA UTILIDAD para la mayoria

Por mi zona LOS malware HACEN q la mayoria de la gente FORMATEE la memoria POR LO Q desconocen el funcionamiento de estos...
Y pues ha algunas personas les ha gustado el sw (estaba hecho en cmd lo codes) y mediante una GUI los hacia funcionar ("estos se ejecutaban de forma oculta")

AQUI UNA IMAGEN DE LO Q TENIA
EN ESE TIEMPO PESABA 9 MB POR LO Q UTILIZABA VARIOS ARCHIVOS
lO HACIA MEDIANTE UN CREADOR DE INSTALADOR PARA INSTALARLO (valga la redundacia)

http://imageshack.us/photo/my-images/20 ... mente.jpg/

a por cierto acerca de los grandes antivirus ESO LES DEJO A ELLOS... YO SIMPLEMTE TRATO DE CORREGIR LOS DAÑOS Q COMETEN
Bueno no he tenido tiempo ultimamente para continuar con el sw propuesto..pero estoy construyendo unos pequeños q de seguro le va hacer util a la gente.

Ultimamente mi tiempo esta divido estudio de la u, estudio de autoit, y aprendiendo diseño.
ZALUDOS

[Ximorro]

yasmany, me parece muy bien que uses este proyecto para aprender, pero también creo que subestimas a los antivirus ya existentes... ¡y a los virus!

Crees que los virus no se pueden meter en tu carpeta especial, quizás en general no, pero te preguntaba en otro momento cómo vas a ejecutar tu programa (vaya, cómo lo van a ejecutar los usuarios).
Si Windows puede llegar a tu exe para ejecutarlo, créeme, los virus también. Es que en realidad a los virus les da igual cómo hay que hacer para ejecutarlo, ellos se enganchan a Windows y cuando se va a ejecutar el programa (da igual lo que le cueste a Windows llegar a él) pues lo infectan.
Si de hecho se meten hasta en carpetas protegidas por el propio sistema, utilizando el sistema de restauración...

No intento desanimarte, al contrario, lo que estás haciendo es un buen ejercicio de programación, ¡y nadie dice que vaya a ser inútil!. Quizás los programas antivirus no son tan buenos con el malware, hay mucho malware que no se considera virus (¿criterios comerciales?) así que si te centras en el malware sí puedes estar protegiendo contra programas maliciosos que los antivirus no paran.

Por eso tenía ganas de ver cómo lo haces. ¿Qué tienes, una lista de programas maliciosos? ¿lo miras por nombre de programa o por firma como los virus? ¿de dónde sacas esa lista?

[yasmany]

Hola a todos
Ximorro
En realidad yo no subestimo a los Antivirus y a los virus ...ni tampoco a lo q los virus pueden infiltrarse en las carpetas "especiales" eso si lo pueden HACER ...
lO Q DIGO Q NO PODRAN HACER NADA CON ESA CARPETA es decir q no la podran ocultar...ni eliminar..ni cambiarle de nombre me refiero a la carpeta llamada "CON"
por lo q el usuario podra abrir normalmente esa carpeta y ejecutar mi pqño sw para arreglar su memoria....(null,prn, y otras de ese tipo no pueden guardar informacion) pòr tal motivo utilizo "CON".
A por otro lado si tengo una lista de malware q venia viendo hace 3 años y los de ahora
Bueno la mayoria de "virus"(malware) se guarda en carpetas como Recycler, DrivesGuideInfo y otras mas aparte de que tambien se ubican en la raiz de la memory y siempre se ejecutan mediante un AUTOLANZADOR(autorun.inf) ..a tambien decia q hare vacunas y en el caso del autorun se necesita dos carpetas casi similares para bloquear un AUTORUN ...UNA q se llame autorun.inf y autorun_.inf ya q unos de esos malware les cambia de nombre a las carpetas vacuna y ponen su autolanzador.
Bueno como haveis visto los miro como nombres de programa...y he estado tratando de q busque dentro de una lista(Array) de carpetas todos los .exes
Tomando en cuenta q en las carpetas Recycler q utiliza xp jamas se alamacenan exes dentro... y tambien en las demas versiones de windows.. w7, wV aunque no utilizan este nombre de carpeta para alamcenar la papelera....los recycler siempre van estar en flashMemorys ... en la actualida, tampoco digo q solo eso existe hay muchas cosas mas
Bueno espero haberme echo entender HA PUES NO LO TOMO COMO DESANIMO a lo q habeis dicho
GRACIAS POR COMENTAR
ZALU2...