comment
IRC Chat
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.

[SRC] RC4 FUD

  • 0 Respuestas
  • 1753 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5401
  • Actividad:
    43.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Agosto 25, 2013, 11:41:02 pm »
Encontre este code por ahi, era fud hasta el 19/08/13 Espero que a alguien le sirva

Código: Visual Basic
  1. Public Function ¢æ®B¥¤zÞæzææ£æؤZÞ±¥(ByVal ££BØؤӥ®Øz¥±£±ó®ZBæ As String, £ÚÞ£z¥æ£z¢®ÚBz¤zÞ¤ú¤ As String) As String
  2. On Error Resume Next
  3. Dim ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(0 To 255) As Integer
  4. Dim BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®, ¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó, C As Integer
  5. Dim ±Þ£Z¥£¢¤BzÞB±Þ¥ó®Þ±Ú() As Byte
  6. Dim zz¢Þ¢£BÓ¥®zz¥ó®¥££z±() As Byte
  7. Dim Øzz¥Þ¤£¤¢¢æ£¥ØÆ£Þ®BØ   As Byte
  8. zz¢Þ¢£BÓ¥®zz¥ó®¥££z±() = StrConv(££BØؤӥ®Øz¥±£±ó®ZBæ, vbFromUnicode)
  9. ±Þ£Z¥£¢¤BzÞB±Þ¥ó®Þ±Ú() = StrConv(£ÚÞ£z¥æ£z¢®ÚBz¤zÞ¤ú¤, vbFromUnicode)
  10. For BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤® = 0 To 255
  11. ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®) = BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®
  12. Next BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®
  13. For BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤® = 0 To 255
  14. Øzz¥Þ¤£¤¢¢æ£¥ØÆ£Þ®BØ = ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®)
  15. ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó + ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®) + ±Þ£Z¥£¢¤BzÞB±Þ¥ó®Þ±Ú(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤® Mod Len(£ÚÞ£z¥æ£z¢®ÚBz¤zÞ¤ú¤))) Mod 256) = Øzz¥Þ¤£¤¢¢æ£¥ØÆ£Þ®BØ
  16. Next BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®
  17. ¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó = 0
  18. For BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤® = 0 To UBound(zz¢Þ¢£BÓ¥®zz¥ó®¥££z±)
  19. ¢æ®B¥¤zÞæzææ£æؤZÞ±¥0 = (¢æ®B¥¤zÞæzææ£æؤZÞ±¥0 + ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó + 1) Mod 256)) Mod 256
  20. ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó + 1) Mod 256) = ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(¢æ®B¥¤zÞæzææ£æؤZÞ±¥0)
  21. ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(¢æ®B¥¤zÞæzææ£æؤZÞ±¥0) = ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó + 1) Mod 256)
  22. zz¢Þ¢£BÓ¥®zz¥ó®¥££z±(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®) = zz¢Þ¢£BÓ¥®zz¥ó®¥££z±(BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®) Xor (¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®((¥£±æ£BóB¢Þ¥z¢Øzzó¥¥Ó + 1) Mod 256) + ¥Þ¤®ÞZ¤£¢¥®z¢æzÞ¥¥¢®(¢æ®B¥¤zÞæzææ£æؤZÞ±¥0)) Mod 256))
  23. Next BæÞ¥£¢B®ó¥¢£zz¤¥Þ¢¤®
  24. ¢æ®B¥¤zÞæzææ£æؤZÞ±¥ = StrConv(zz¢Þ¢£BÓ¥®zz¥ó®¥££z±(), vbUnicode)
  25. End Function
  26.  
  27. Public Function ¥B¥¥ZZó¥¢¥£®Z¢¤±±¢¤±(strInput As String, second As Integer)
  28.     Dim first As Integer
  29.    
  30.     For first = 1 To Len(strInput)
  31.         Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
  32.     Next first
  33.     ¥B¥¥ZZó¥¢¥£®Z¢¤±±¢¤± = strInput
  34. End Function
  35.  
  36.  
  37. Public Function B¥£Þz£z¢ÞZ£Æ±BZÓ±óÞÚ(ByVal strData As String)
  38. Dim second As Long, CryptString As String, tmpChar As String
  39.     On Local Error Resume Next
  40.     For second = 1 To Len(strData) Step 2
  41.         CryptString = CryptString & Chr$(Val("&H" & Mid$(strData, second, 2)))
  42.     Next second
  43.     B¥£Þz£z¢ÞZ£Æ±BZÓ±óÞÚ = CryptString
  44. End Function

Scan: No tienes permisos para ver links. Registrate o Entra con tu cuenta

Saludos!
ANTRAX


 

¿Te gustó el post? COMPARTILO!