Various webshell password encryption and decryption code

Most of the passwords of webpage Trojans are in plain text, but md5 is also useful, which can be easily cracked. The most important reason is that they are not encrypted by standard network horses. Generally, after the passwords are encrypted, only the encryption code is not decrypted, I have collected some (continuously supplemented ).

Function decrypt (dcode)
Dim texts
Dim I
For I = 1 to len (dcode)
Texts = texts & chr (asc (mid (dcode, I, 2)-I)
Next
Decrypt = texts
End function

Function encrypt (ecode)
Dim texts
Dim I
For I = 1 to len (ecode)
Texts = texts & chr (asc (mid (ecode, I, 2) + I)
Next
Encrypt = texts
End function

================ Use in the password of a cms system administrator, such as "2375; 7? "Decrypted 1141618

 

Ocean top:

Encrypted and saved as vbs

======================================

Dim theStr

TheStr = InputBox ("Enter the string to be encrypted ")

If theStr <> "" Then

Call InputBox ("Please copy the encrypted string", Encode (theStr ))

End If

Function Encode (strPass)

Dim I, theStr, strTmp

For loop to get the ascii value of each character of the password, each value is 0 ~ 9

For I = 1 To Len (strPass)

StrTmp = Asc (Mid (strPass, I, 1 ))

TheStr = theStr & Abs (strTmp)

Next

StrPass = theStr

TheStr = ""

If the number of digits obtained above is greater than 16, the JoinCutStr function is processed to make it smaller than 16.

Do While Len (strPass)> 16

StrPass = JoinCutStr (strPass)

Loop

This for loop processes each character and converts 7, 8, and 9 to C, D, and E, and the rest remain unchanged.

For I = 1 To Len (strPass)

StrTmp = CInt (Mid (strPass, I, 1 ))

StrTmp = IIf (strTmp> 6, Chr (strTmp + 60), strTmp)

TheStr = theStr & strTmp

Next

Encode = theStr

End Function

The JoinCutStr function adds the odd and even-digit ascii values in addition to 2 to obtain a new character. The value ranges from 0 ~ 9

Function JoinCutStr (str)

Dim I, theStr

For I = 1 To Len (str)

If Len (str)-I = 0 Then Exit

TheStr = theStr & Chr (CInt (Asc (Mid (str, I, 1) + Asc (Mid (str, I + 1, 1)/2 ))

I = I + 1

Next

JoinCutStr = theStr

End Function

VB (a> B )? A: B

Function IIf (var, val1, val2)

If var = True Then

IIf = val1

Else

IIf = val2

End If

End Function

Decrypt (Save As vbs ):

============================

TheStr = InputBox ("input encrypted string ")

If theStr <> "" Then

Call InputBox ("Copy decrypted strings", UnEncode (theStr ))

End If

Function UnEncode (str)

For I = 1 To Len (str)

TheStr1 = Mid (str, I, 1)

If theStr1 = "C" Then

TheStr1 = "7"

ElseIf theStr1 = "D" Then

TheStr1 = "8"

ElseIf theStr1 = "E" Then

TheStr1 = "9"

End If

StrPass2 = StrPass2 & theStr1

Next

StrPass3 = GetChr (StrPass2)

UnEncode = StrPass3

End Function

Function GetChr (str)

For I = 1 To Len (str)

ASCStr = Mid (str, I, 1)
MyStr = MyStr & ASCStr

If MyStr> 32 and MyStr <127 Then

StrResult = StrResult & Chr (MyStr)

MyStr = ""

Else

If I = Len (str) Then

GetChr = "the shrimps are incompetent and cannot be cracked"

Exit function

End If

End If

Next

GetChr = StrResult

End Function