帮助VB.NET代码下面的ecryption代码 [英] Help at VB.NET code below ecryption code

问题描述

你好亲爱的

iam Kero，



ib begginer at vb.net coding我需要你的帮助来重置这段代码

i从vb.net程序获取此代码，我使用

代码反射器9.0和iam使用vb express 2008获取代码



任何人都可以帮我如何使用这个代码

以及如何使用它



谢谢和最好的问候

Kero



;

 朋友 < span class =code-keyword>共享 功能 TripleDESEncryptTo46StringBase（ ByVal  [text] < span class =code-keyword> As   String ） As   String  
  Dim  buffer  As   Byte （）
  Dim  buffer2 作为 字节（）
  Dim  buffer3 作为 字节（）
  Dim  stream  As  MemoryStream 
  Dim  provider < span class =code-keyword> As  TripleDESCryptoServiceProvider 
  Dim  stream2  As  CryptoStream 
  Dim  str  As   String  
 buffer = Encoding.UTF8.GetBytes（[text]）
 buffer2 = Encoding.UTF8.GetBytes（  SmartSolutions_AhmedSaid）
 buffer3 = Encoding.UTF8.GetBytes（  Abu_Said ） 
 stream = 新 MemoryStream 
 provider = 新 TripleDESCryptoServiceProvider 
 stream2 = 新 CryptoStream（stream，provider.CreateEncryptor（buffer2，buffer3）， 1 ）
 stream2。写（缓冲区， 0 ， CInt （buffer.Length））
 stream2.FlushFinalBlock 
 str = Convert.ToBase64String（stream.ToArray）
 Label_0070：
 返回 str 
 结束 功能 

我是什么尝试过：

 朋友 共享 功能 TripleDESEncryptTo46StringBase（ ByVal  [text] 作为 字符串）作为 字符串 
  Dim  buffer  As   Byte （）
  Dim  buffer2  As  字节（）
  Dim  buffer3 作为 字节（）
  Dim  stream  As  MemoryStream 
  Dim  provider  As  TripleDESCryptoServiceProvider 
  Dim  stream2  As  CryptoStream 
  Dim  str  As  字符串 
 buffer = Encoding.UTF8.GetBytes（[text]）
 buffer2 = Encoding.UTF8.GetBytes（  SmartSolutions_AhmedSaid ）
 buffer3 = Encoding.UTF8.GetBytes（  Abu_Said） 
 stream = 新 MemoryStream 
 provider = 新 TripleDESCryptoServiceProvider 
 stream2 = 新 CryptoStream（stream，provider.CreateEncryptor（buffer2，buffer3）， 1 ）
 stream2。写（缓冲区， 0 ， CInt （buffer.Length））
 stream2.FlushFinalBlock 
 str = Convert.ToBase64String（stream.ToArray）
 Label_0070：
 返回 str 
 结束 功能 

解决方案

猜测你试图在没有原作者知识的情况下扭转某些东西的加密。几乎可以肯定，这是恶意活动，我们不会宽恕，支持或协助以任何方式，形式或方式生成恶意代码。这是专业开发人员的专业网站。



如果你能解释你在做什么，为什么，你可以得到一些帮助，但没有那个 - 不是一件事

hello dears
iam Kero ,

iam begginer at vb.net coding and i need your help to reset this code
i get this code from program made by vb.net and i get the code using
code reflector 9.0 and iam using vb express 2008

any one can help me how to use this code
and how to get use of it

thanks and best regards
Kero

;

Friend Shared Function TripleDESEncryptTo46StringBase(ByVal [text] As String) As String
    Dim buffer As Byte()
    Dim buffer2 As Byte()
    Dim buffer3 As Byte()
    Dim stream As MemoryStream
    Dim provider As TripleDESCryptoServiceProvider
    Dim stream2 As CryptoStream
    Dim str As String
    buffer = Encoding.UTF8.GetBytes([text])
    buffer2 = Encoding.UTF8.GetBytes("SmartSolutions_AhmedSaid")
    buffer3 = Encoding.UTF8.GetBytes("Abu_Said")
    stream = New MemoryStream
    provider = New TripleDESCryptoServiceProvider
    stream2 = New CryptoStream(stream, provider.CreateEncryptor(buffer2, buffer3), 1)
    stream2.Write(buffer, 0, CInt(buffer.Length))
    stream2.FlushFinalBlock
    str = Convert.ToBase64String(stream.ToArray)
Label_0070:
    Return str
End Function

What I have tried:

Friend Shared Function TripleDESEncryptTo46StringBase(ByVal [text] As String) As String
    Dim buffer As Byte()
    Dim buffer2 As Byte()
    Dim buffer3 As Byte()
    Dim stream As MemoryStream
    Dim provider As TripleDESCryptoServiceProvider
    Dim stream2 As CryptoStream
    Dim str As String
    buffer = Encoding.UTF8.GetBytes([text])
    buffer2 = Encoding.UTF8.GetBytes("SmartSolutions_AhmedSaid")
    buffer3 = Encoding.UTF8.GetBytes("Abu_Said")
    stream = New MemoryStream
    provider = New TripleDESCryptoServiceProvider
    stream2 = New CryptoStream(stream, provider.CreateEncryptor(buffer2, buffer3), 1)
    stream2.Write(buffer, 0, CInt(buffer.Length))
    stream2.FlushFinalBlock
    str = Convert.ToBase64String(stream.ToArray)
Label_0070:
    Return str
End Function

解决方案

At a guess you are trying to reverse the encryption of something without the original author's knowledge. Almost certainly, that is malicious activity, and we do not condone, support, or assist in the production of malicious code in any way, form, or manner. This is a professional site for professional developers.

If you can explain what you are doing, and why, you may get some help, but without that - not a thing.

这篇关于帮助VB.NET代码下面的ecryption代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！