大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
没有这种软件,你想想,如果真有的话,就没人用VB开发程序了,因为一点秘密也没有了
创新互联建站是专业的土默特左旗网站建设公司,土默特左旗接单;提供网站设计、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行土默特左旗网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
我这个就是VB.NET的代码
Imports System
Imports System.Reflection
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.CompilerServices
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Messaging
Namespace Learn.Library.Remoting
Public Class RemotingTest ' *'// summary
' '/ 远程类型
' '/ /summary
' Public class Data : MarshalByRefObject
' {
' private Integer i
'
' Public Integer I
' {
' get
' {
' Return i
' }
'
' set
' {
' i = value
' }
'
' }
'
' Public void Where()
' {
' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)
' }
' }
'
' /**'// summary
' '/ 服务器端代码
' '/ /summary
' static void Server()
' {
' ' 创建新的应用程序域,以便模拟分布系统。
' AppDomain server = AppDomain.CreateDomain("server")
' server.DoCallBack(delegate
' {
' ' 创建并注册信道
' TcpServerChannel channel = New TcpServerChannel(801)
' ChannelServices.RegisterChannel(channel, False)
'
' ' 注册远程对象激活模式
' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",
' WellKnownObjectMode.Singleton)
'
' }
' )
' }
'
' /**'// summary
' '/ 客户端代码
' '/ /summary
' static void Client()
' {
' ' 创建并注册信道
' TcpClientChannel channel = New TcpClientChannel()
' ChannelServices.RegisterChannel(channel, False)
'
' ' 创建远程对象并调用其方法
' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)
' data.Where()
'
' ' 判断是否是代理
' Console.WriteLine(RemotingServices.IsTransparentProxy(data))
' }
'
' static void Main()
' {
' Server()
' Client()
' }
' }
'
End Class
{ ' *'// summary
' '/ 远程类型
' '/ /summary
' Public class Data : MarshalByRefObject
' {
' private Integer i
'
' Public Integer I
' {
' get
' {
' Return i
' }
'
' set
' {
' i = value
' }
'
' }
'
' Public void Where()
' {
' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)
' }
' }
'
' /**'// summary
' '/ 服务器端代码
' '/ /summary
' static void Server()
' {
' ' 创建新的应用程序域,以便模拟分布系统。
' AppDomain server = AppDomain.CreateDomain("server")
' server.DoCallBack(delegate
' {
' ' 创建并注册信道
' TcpServerChannel channel = New TcpServerChannel(801)
' ChannelServices.RegisterChannel(channel, False)
'
' ' 注册远程对象激活模式
' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",
' WellKnownObjectMode.Singleton)
'
' }
' )
' }
'
' /**'// summary
' '/ 客户端代码
' '/ /summary
' static void Client()
' {
' ' 创建并注册信道
' TcpClientChannel channel = New TcpClientChannel()
' ChannelServices.RegisterChannel(channel, False)
'
' ' 创建远程对象并调用其方法
' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)
' data.Where()
'
' ' 判断是否是代理
' Console.WriteLine(RemotingServices.IsTransparentProxy(data))
' }
'
' static void Main()
' {
' Server()
' Client()
' }
' }
'
End Namespace
{
Public Class RemotingTest ' *'// summary
' '/ 远程类型
' '/ /summary
' Public class Data : MarshalByRefObject
' {
' private Integer i
'
' Public Integer I
' {
' get
' {
' Return i
' }
'
' set
' {
' i = value
' }
'
' }
'
' Public void Where()
' {
' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)
' }
' }
'
' /**'// summary
' '/ 服务器端代码
' '/ /summary
' static void Server()
' {
' ' 创建新的应用程序域,以便模拟分布系统。
' AppDomain server = AppDomain.CreateDomain("server")
' server.DoCallBack(delegate
' {
' ' 创建并注册信道
' TcpServerChannel channel = New TcpServerChannel(801)
' ChannelServices.RegisterChannel(channel, False)
'
' ' 注册远程对象激活模式
' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",
' WellKnownObjectMode.Singleton)
'
' }
' )
' }
'
' /**'// summary
' '/ 客户端代码
' '/ /summary
' static void Client()
' {
' ' 创建并注册信道
' TcpClientChannel channel = New TcpClientChannel()
' ChannelServices.RegisterChannel(channel, False)
'
' ' 创建远程对象并调用其方法
' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)
' data.Where()
'
' ' 判断是否是代理
' Console.WriteLine(RemotingServices.IsTransparentProxy(data))
' }
'
' static void Main()
' {
' Server()
' Client()
' }
' }
'
End Class
{ ' *'// summary
' '/ 远程类型
' '/ /summary
' Public class Data : MarshalByRefObject
' {
' private Integer i
'
' Public Integer I
' {
' get
' {
' Return i
' }
'
' set
' {
' i = value
' }
'
' }
'
' Public void Where()
' {
' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)
' }
' }
'
' /**'// summary
' '/ 服务器端代码
' '/ /summary
' static void Server()
' {
' ' 创建新的应用程序域,以便模拟分布系统。
' AppDomain server = AppDomain.CreateDomain("server")
' server.DoCallBack(delegate
' {
' ' 创建并注册信道
' TcpServerChannel channel = New TcpServerChannel(801)
' ChannelServices.RegisterChannel(channel, False)
'
' ' 注册远程对象激活模式
' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",
' WellKnownObjectMode.Singleton)
'
' }
' )
' }
'
' /**'// summary
' '/ 客户端代码
' '/ /summary
' static void Client()
' {
' ' 创建并注册信道
' TcpClientChannel channel = New TcpClientChannel()
' ChannelServices.RegisterChannel(channel, False)
'
' ' 创建远程对象并调用其方法
' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)
' data.Where()
'
' ' 判断是否是代理
' Console.WriteLine(RemotingServices.IsTransparentProxy(data))
' }
'
' static void Main()
' {
' Server()
' Client()
' }
' }
' }
'
'
'
'
'
如果是VB.NET开发的很容易被反编译,如果没有混淆的话基本能得到源代码,用Reflector.exe这个工具,有绿色版的。不是NET的有VB反编译精灵等等工具。
你都懂得反编译还编不了个小信息管理系统啊...vb6程序的话可以的 因为vb6本来就是伪代码,vb.net就不行了,.net framework至少能防止你把程序反编译成特定高级语言的。
真正反编译是不可能的,不管是P代码还是本机代码,不加壳也反编译不了,至于什么.net反编译,更是痴人说梦!网上虽有一些反编译软件,但是顶多把你用了哪些控件找出来,至于代码就无能为力了