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...->->

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

另：您的网站没法进行留言，我试了很多都不行，您还是处理一下吧，或网站上加上一个联系方式，这个以便和您联系。