gg修改器执行lua脚本失败 gg修改器执行脚本路径

gg修改器脚本大全迷你世界设置回点

发布时间：2020-08-20

->Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要

打开注册表就可以看到Imail里的所有信息,包括用户的密码.

细节:

Imail将企业邮局信息全部存储在:

HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\\Users\

这样一个键里,其中DomainName是邮局名,UserName是用户名,而在下有一个名叫Password的键值则是存储的用户密码.密码并不是明文存储的,而是结这了简单的加密运行后生成的,他的加密过程如下:

1.读取用户名,并将其全部转为小写

2.将用户名每个数字转为对应的ASCII码

3.计算出用户名里每个字母和第一个字母的偏移量

4.计算出每个密码字母对应的ASCII码

5.将密码的每个ASCII码加上参考值(用户名首字母的ASCII减去97)再加上用户名对应的偏移量

6.再对应密码表就可以得到密码了.

具体程序如下:

SubinitCode(ByRefInfos)'自动生成密码表
Count=-97
CodeArray=Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F")
forz=0toUbound(CodeArray)
fory=0toUbound(CodeArray)
Infos.AddCstr(Count),CodeArray(z)&CodeArray(y)
Count=Count+1
next
next
EndSub
FunctionGetImailPassword(User,Pass)'Imail密码加密函数
encryptCode=""
SetobjDict=CreateObject("Scripting.Dictionary")
CallinitCode(objDict)
User=Lcase(User)'将用户转为小写
FirstChar=left(User,1)
FirstCharCode=asc(FirstChar)'得到首字母的ASCII码
Reference=FirstCharCode-97'得到参考值
execute"DimUserCode("&len(User)-1&")"'定义两个存放用户与密码ASCII的数组
execute"DimPassCode("&len(Pass)-1&")"
fori=0tolen(User)-1'取得用户字母的偏移量
UChar=Asc(mid(User,i+1,1))
UserCode(i)=FirstCharCode-UChar
next
forj=0tolen(Pass)-1'取得密码对应的新值
PChar=Asc(mid(Pass,j+1,1))
iPos=jmodlen(User)
PassCode(j)=PChar+Reference-UserCode(iPos)
next
fork=0toUbound(PassCode)'查询密码表,最后得到密码
encryptCode=encryptCode&objDict.item(Cstr(PassCode(k)))
next
GetImailPassword=encryptCode
endfunction
iUser="web9898"'测试用的Imail用户名
iPass="web9898.cn"'测试用的Imail密码
Wscript.EchoiPass&"加密后的密码是:"&GetImailPassword(iUser,iPass)

On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.Count=0 Then wscript.quit
'code by NetPatch
'enjoy it
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(arg(0),1,False,-2)
Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True)
Do While File.AtEndOfStream <> True
szBuf=File.readline
szBuf=Replace(szBuf,chr(9),"")
Findnum=InStr(LCase(szBuf),"then")
If Findnum >0 Then
Findnum=findnum+3
If Len(szBuf) > Findnum Then
szBuf=szBuf&":End If"
End If
End If
Files.Write szBuf&":"
Loop
File.Close
Files.Close
Set Fso=Nothing
Wscript.echo "ok!"

如果我们想在一个画面上画上座标，那麽如何才能不管Window的大小，而只管我们所

关注的座标呢？假设我们想做一个座标，原点在Form的左下角(0,0)而右上角座标是

(100,100)，那我们只要对Form如此设

ScaleTop=100
ScaleWidth=100
ScaleLeft=0

ScaleHeight=-100，那就成了，这时候，如果我们去查一下Form的MouseDown的

X,Y值，会发现它的值已变成落在0-100之间了

end sub
Overloads Public Sub New(s as string)

自己去想吧->

信息显示Sub/Function 进入和退出并且其它重要信息夜神无法代码如下：

->If(x<>0)AndyThen...->->

作者对他写的文章如此关注，实在令人敬佩，