1月16

教你用自写工具干掉熊猫烧香和威金

20:02夕阳醉了软件应用  From: 本站原创
最近很多朋友都被这个熊猫搞的很悲哀，虽然360和瑞星都推出了专杀工具，但效果还是不理想。
今天教大家一个方法（一落伍朋友提供），
让你彻底干掉这只坏熊猫，还你一个绿色的系统，废话少说，
其实是一段很简单的代码  可扩展性很强，大家可以自由编辑，
代码如下：
Tags: , ,
阅读(2908) | 评论(0) | 引用(0)
1月16

MySQL数据库配置技巧

19:57夕阳醉了WEB 应用  From: 本站原创
用root用户启动远程服务一直是安全大忌，因为如果服务程序出现问题，远程攻击者极有可能获得主机的完全控制权。MySQL从3.23.15版

本开始时作了小小的改动，默认安装后服务要用mysql用户来启动，不允许root用户启动。如果非要用root用户来启动，必须加上--user=root

的参数(./safe_mysqld --user=root &)。因为MySQL中有LOAD DATA INFILE和SELECT ... INTO OUTFILE的SQL语句，如果是root用户启动了
Tags: , ,
阅读(2874) | 评论(0) | 引用(0)
1月16

IT界真正的强人

19:55夕阳醉了开心一刻  From: 本站原创
 1、我的CPU是我用一个电容一个电容焊接起来的！好大一砣啊……哈哈哈！  


　　2、楼上的很厉害，可怜我昨天费了一个晚上的工夫才用小刀在我的硬盘上刻了一个操作系统，我要向大家学习啊！　　

　　3、吹吧，吹牛不上税……我昨天把我家的那台老式电视拆了，七拼八凑变成了一块GF4Ti4800的显卡，赚了……

　　4、这算什么，刚才我边吃苹果边上网，忽然就死机了，重启一下就发现操作系统就变成了MACOS。　　　　
Tags: ,
阅读(10643) | 评论(0) | 引用(0)
1月16

草根的进化 PHP语言发展简史

19:54夕阳醉了WEB 应用  From: 本站原创
PHP 继承自一个老的工程，名叫 PHP/FI。PHP/FI 在 1995 年由 Rasmus Lerdorf 创建，最初只是一套简单的 Perl 脚本，用来跟踪访问他主页的人们的信息。它给这一套脚本取名为“Personal Home Page Tools”。随着更多功能需求的增加，Rasmus 写了一个更大的 C 语言的实现，它可以访问数据库，可以让用户开发简单的动态 Web 程序。Rasmus 发布了 PHP/FI 的源代码，以便每个人都可以使用它，同时大家也可以修正它的 Bug 并且改进它的源代码。

Tags: ,
阅读(2627) | 评论(0) | 引用(0)
1月16

ICMP常见攻击及防范措施

19:46夕阳醉了软件应用  From: 本站原创
懂得网络的人都知道我们常用Ping命令来检查网络是否畅通的一个简单的手段，可是这个Ping也能给Windows系统带来不可预测的灾难，那就是Ping入侵即是ICMP入侵，后果是相当严重的。所以这里我们要详细讨论一下ICMP攻击方法及防范措施。
ICMP攻击及欺骗技术

所谓：“知己知彼，百战不怠”，要学会防范就必须知道攻击是怎样的。使用ICMP攻击的原理实际上就是通过Ping大量的数据包使得计算机的CPU使用率居高不下而崩溃，一般情况下黑客通常在一个时段内连续向计算机发出大量请求而导致CPU占用率太高而死机。基于ICMP的攻击可以分为两大类，一是ICMP攻击导致拒绝服务（DoS）；另外一个是基于重定向（redirect）的路由欺骗技术。
Tags: , ,
阅读(2435) | 评论(0) | 引用(0)
1月16

修改注册表，防止轻度DOS攻击

19:45夕阳醉了WEB 应用  From: 本站原创
防范DDOS攻击并不一定非要用防火墙，首先可以尝试一下通过对服务器进行安全设置来防范DDOS攻击。如果通过对服务器设置不能有效解决，那么就可以考虑购买抗DDOS防火墙了。 其实从操作系统角度来说，本身就藏有很多的功能，只是很多是需要我们慢慢的去挖掘的。这里我给大家简单介绍一下如何在Win2000环境下通过修改注册表，增强系统的抗DoS能力。 　  
   请注意，以下的安全设置均通过注册表进行修改，该设置的性能取决于服务器的配置，尤其是CPU的处理能力。如按照如下进行安全设置，采用双路至强2.4G的服务器配置，经过测试，可承受大约1万个包的攻击量。
Tags: ,
阅读(2622) | 评论(0) | 引用(0)
1月16

Windows下打造完美的服务器平台

19:39夕阳醉了WEB 应用  From: 本站原创
Windows下打造完美的服务器平台（APACHE+JSP+CGI+PHP+ASP+MYSQL）
需要下载几个软件包:
1. php-5.0.2-Win32
2. apache_2.0.52-win32-x86-no_ssl
3. mysql-5.0.1-alpha-snapshot-win
4．iASP2.1.01
5．jakarta-tomcat-4.1.31
7．j2sdk-1_4_2-windows-i586
8．phpMyAdmin-2.6.0-pl2
9．ActivePerl-5.8.4.810-MSWin32-x86
Tags: , , , , , , ,
阅读(3602) | 评论(0) | 引用(0)
1月16

计算器源代码

19:29夕阳醉了V B 源码  From: 本站原创

Option Explicit
Dim a As Double, b As Double, c As Double
'a是最终结果,b是优先级结果,c是录入变量
Dim idx As Integer
Dim PreMode As String, JustMode As String, CurMode As String

Private Sub ComAC_Click() '清空按钮
   a = 0
   b = 0
   c = 0
   Text1.Text = "0"
   idx = 1
   PreMode = ""
   JustMode = ""
   CurMode = ""
End Sub

Private Sub ComAdd_Click() '加法
   On Error GoTo er
   c = Val(Text1.Text)
   CurMode = "+"
   If PreMode = "" Then
       If JustMode = "" Then
           a = c
       ElseIf JustMode = "+" Then
           a = a + c
       ElseIf JustMode = "-" Then
           a = a - c
       ElseIf JustMode = "*" Then
           a = a * c
       ElseIf JustMode = "/" Then
           a = a / c
       End If
   ElseIf PreMode = "+" Then
       If JustMode = "*" Then
           a = a + b * c
       ElseIf JustMode = "/" Then
           a = a + b / c
       End If
   ElseIf PreMode = "-" Then
       If JustMode = "*" Then
           a = a - b * c
       ElseIf JustMode = "/" Then
           a = a - b / c
       End If
   End If

   Text1.Text = CStr(a)
   PreMode = ""
   JustMode = CurMode
   idx = 2
   Exit Sub
er:
   MsgBox Err.Description, vbCritical, "Error", vbCritical, "Error"
   Call ComAC_Click
   Exit Sub
End Sub

Private Sub ComBak_Click() '退格
   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
   If Len(Text1.Text) = 0 Then
       Text1.Text = "0"
   End If
End Sub

Private Sub ComDiv_Click() '除法
   On Error GoTo er
   c = Val(Text1.Text)
   CurMode = "/"
   If PreMode = "" Then
       If JustMode = "" Then
           a = c
           Text1.Text = CStr(a)
       ElseIf JustMode = "+" Or JustMode = "-" Then
           b = c
           PreMode = JustMode
       ElseIf JustMode = "*" Then
           a = a * c
           Text1.Text = CStr(a)
       ElseIf JustMode = "/" Then
           a = a / c
           Text1.Text = CStr(a)
       End If
   ElseIf PreMode = "+" Then
       If JustMode = "*" Then
           b = b * c
       ElseIf JustMode = "/" Then
           b = b / c
       End If
   ElseIf PreMode = "-" Then
       If JustMode = "*" Then
           b = b * c
       ElseIf JustMode = "/" Then
           b = b / c
       End If
   End If
   
   JustMode = CurMode
   idx = 2
   Exit Sub
er:
   MsgBox Err.Description, vbCritical, "Error"
   Call ComAC_Click
   Exit Sub
End Sub

Private Sub ComDot_Click() '小数点
   If idx = 1 Then
       If InStr(1, Text1.Text, ".") = 0 Then
           Text1.Text = Text1.Text + "."
       End If
   Else
       Text1.Text = "0."
   End If
   idx = 1
End Sub

Private Sub ComEqu_Click() '等号
   On Error GoTo er
   c = Val(Text1.Text)
   If PreMode = "" Then
       If JustMode = "+" Then
           a = a + c
       ElseIf JustMode = "-" Then
           a = a - c
       ElseIf JustMode = "*" Then
           a = a * c
       ElseIf JustMode = "/" Then
           a = a / c
       End If
   ElseIf PreMode = "+" Then
       If JustMode = "*" Then
           a = a + b * c
       ElseIf JustMode = "/" Then
           a = a + b / c
       End If
   ElseIf PreMode = "-" Then
       If JustMode = "*" Then
           a = a - b * c
       ElseIf JustMode = "/" Then
           a = a - b / c
       End If
   End If
   
   Text1.Text = CStr(a)
   a = 0
   b = 0
   c = 0
   PreMode = ""
   JustMode = ""
   CurMode = ""
   
   idx = 2
   Exit Sub
er:
   MsgBox Err.Description, vbCritical, "Error"
   Call ComAC_Click
   Exit Sub
End Sub

Private Sub ComMul_Click() '乘号
   On Error GoTo er
   c = Val(Text1.Text)
   CurMode = "*"
   If PreMode = "" Then
       If JustMode = "" Then
           a = c
           Text1.Text = CStr(a)
       ElseIf JustMode = "+" Or JustMode = "-" Then
           b = c
           PreMode = JustMode
       ElseIf JustMode = "*" Then
           a = a * c
           Text1.Text = CStr(a)
       ElseIf JustMode = "/" Then
           a = a / c
           Text1.Text = CStr(a)
       End If
   ElseIf PreMode = "+" Then
       If JustMode = "*" Then
           b = b * c
       ElseIf JustMode = "/" Then
           b = b / c
       End If
   ElseIf PreMode = "-" Then
       If JustMode = "*" Then
           b = b * c
       ElseIf JustMode = "/" Then
           b = b / c
       End If
   End If
   
   
   JustMode = CurMode
   idx = 2
   Exit Sub
er:
   MsgBox Err.Description, vbCritical, "Error"
   Call ComAC_Click
   Exit Sub
End Sub

Private Sub ComNum_Click(Index As Integer) '数字键入
   If idx = 1 Then
       If Text1.Text = "0" Then
           Text1.Text = CStr(Index)
       Else
           Text1.Text = Text1.Text + CStr(Index)
       End If
   Else
       Text1.Text = CStr(Index)
   End If
   idx = 1
End Sub

Private Sub ComOff_Click()
   Unload Me
End Sub

Private Sub ComPN_Click() '正负号
   If Text1.Text = "0" Then
       Text1.Text = "-"
   Else
       If InStr(1, Text1.Text, "-") = 0 Then
           Text1.Text = "-" + Text1.Text
       Else
           Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
       End If
   End If
   idx = 1
End Sub

Private Sub ComSub_Click() '减法
   On Error GoTo er
   c = Val(Text1.Text)
   CurMode = "-"
   If PreMode = "" Then
       If JustMode = "" Then
           a = c
       ElseIf JustMode = "+" Then
           a = a + c
       ElseIf JustMode = "-" Then
           a = a - c
       ElseIf JustMode = "*" Then
           a = a * c
       ElseIf JustMode = "/" Then
           a = a / c
       End If
   ElseIf PreMode = "+" Then
       If JustMode = "*" Then
           a = a + b * c
       ElseIf JustMode = "/" Then
           a = a + b / c
       End If
   ElseIf PreMode = "-" Then
       If JustMode = "*" Then
           a = a - b * c
       ElseIf JustMode = "/" Then
           a = a - b / c
       End If
   End If

   Text1.Text = CStr(a)
   PreMode = ""
   JustMode = CurMode
   idx = 2
   Exit Sub
er:
   MsgBox Err.Description, vbCritical, "Error"
   Call ComAC_Click
   Exit Sub
End Sub

Private Sub Form_Load()
   '赋上初值
   PreMode = ""
   JustMode = ""
   CurMode = ""
   a = 0
   b = 0
   c = 0
   idx = 1
End Sub
Private Sub Text1_Change()
   If Val(Text1.Text) < 1 And Val(Text1.Text) > 0 And Left(Text1.Text, 1) <> "0" Then
       Text1.Text = "0" & Text1.Text
   End If
End Sub
Tags: , ,
阅读(15715) | 评论(0) | 引用(0)
分页： 9/13 第一页 上页 4 5 6 7 8 9 10 11 12 13 下页 最后页 [ 显示模式： 摘要 | 列表 ]