整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中
vbs版

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
vb版
vb 破解flashxp的密码,他的密码放在 Sites.dat 文件中,大家打开这个文件,可以看到如下：
Pass=7B9A439CCB4FC1C7C2
等号后面的就是加密之后的密码,用下面的模块可以解开：

Public Function DecryptFlashFXP(password As String) As String  
Dim x As Integer  
Dim magic() As String  
Dim chrresulta As Integer  
Dim chrresultb As Integer  
Dim chrlast As Integer  
Dim chrtmp As Integer  
Dim magicnum As Integer  
Dim pwdtmp As String  
'MAGIC BUFFER = "yA36zA48dEhfrvghGRg57h5  
'   UlDv3"  
magic = Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51", ",")  
chrlast = Val("&H" & Mid(password, 1, 2))  
magicnum = 0  


For x = 3 To Len(password) Step 2  
  chrtmp = Val("&H" & Mid(password, x, 2))  
  chrresulta = (chrtmp Xor magic(magicnum))  
  chrresultb = chrresulta - Val(chrlast)  


  If chrresultb > 255 or chrresultb < 0 Then  
    chrresultb = chrresultb - &HFFFFFF01  
  End If  
  chrlast = chrtmp  
  pwdtmp = pwdtmp & Chr(chrresultb)  
  magicnum = magicnum + 1  


  If magicnum > 27 Then  
    magicnum = 0  
  End If  
Next x  
DecryptFlashFXP = pwdtmp  
End Function 

用VBS实现的批量gb2312转utf-8,支持拖动
'/*========================================================================='*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件'*Fi

用vbs实现的XP序列号替换器
ONERRORRESUMENEXTDimVOL_PROD_KEYifWscript.arguments.count1thenVOL_PROD_KEY=InputBox("本程序能帮助您更换WindowsXP的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列

VBS可以做什么的简单说明
1.计算2.处理文件和文件夹3.管理Windows4.处理Word,Excel,PowerPoint等Office文档5.嵌入网页，驱动dHTML6.编写HTTP通信7.调用系统功能（COM组件），比如说语音说话8.