एमएस एक्सेस वीबीए सबस्टिट्यूशन सिफर एन्क्रिप्ट/डिक्रिप्ट

Question

क्या कोई सुझाव दे सकता है कि मैं एक प्रतिस्थापन सिफर शैली कैसे प्राप्त कर सकता हूं; वीबीए में एन्क्रिप्ट और डिक्रिप्ट फ़ंक्शन। मुझे सराहना है कि हैशिंग को बेहतर तरीका माना जाता है लेकिन मुझे उलटा एन्क्रिप्शन चाहिए। बहुत धन्यवाद।

Answer 1

मेरे प्रश्न के संदर्भ में दिए गए सभी उत्तरों के लिए बहुत धन्यवाद, यह देखना अच्छा लगता है कि अलग-अलग दृष्टिकोण हैं, यह कल मैंने सुबह कोड किया था। यह ऊपरी & लोअरकेस अक्षरों दोनों के लिए एक अलग सिफर कीवर्ड/वाक्यांश का उपयोग करने की अनुमति देता है, मैंने इस उदाहरण में 'ज़ेबरा' का उपयोग किया है, यह आरओटी 13 सिफर के साथ दूसरा पास भी चलाता है। एन्क्रिप्शन विधि:

Public Function Encrypt(strvalue As String) As String 

Const LowerAlpha As String = "abcdefghijklmnopqrstuvwxyz" 
Const LowerSub  As String = "zebrascdfghijklmnopqtuvwxy" 'zebras 
Const UpperAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Const UpperSub  As String = "ZEBRASCDFGHIJKLMNOPQTUVWXY" 'ZEBRAS 

Dim lngi   As Long 
Dim lngE   As Long 
Dim strEncrypt  As String 
Dim strLetter  As String 

If strvalue & "" = "" Then Exit Function 

For lngi = 1 To Len(strvalue) 

    strLetter = Mid(strvalue, lngi, 1) 

    Select Case Asc(strLetter) 

     Case 65 To 90 'Uppercase 
      'Find position in alpha string 
      For lngE = 1 To Len(UpperAlpha) 
       If Mid(UpperAlpha, lngE, 1) = strLetter Then GoTo USub 
      Next 
USub: 
      strEncrypt = strEncrypt & Mid(UpperSub, lngE, 1) 

     Case 97 To 122 'Lowercase 
      'Find position in alpha string 
      For lngE = 1 To Len(LowerAlpha) 
       If Mid(LowerAlpha, lngE, 1) = strLetter Then GoTo LSub 
      Next 
LSub: 
      strEncrypt = strEncrypt & Mid(LowerSub, lngE, 1) 

     Case Else 'Do not substitute 

      strEncrypt = strEncrypt & strLetter 

    End Select 

Next 

'Now pass this string through ROT13 for another tier of security 

For lngi = 1 To Len(strEncrypt) 
    Encrypt = Encrypt & Chr(Asc(Mid(strEncrypt, lngi, 1)) + 13) 
Next 

End Function 

और यह डिक्रिप्शन है कि यह साथ चला जाता है:

Public Function Decrypt(strvalue As String) As String 

Const LowerAlpha As String = "abcdefghijklmnopqrstuvwxyz" 
Const LowerSub  As String = "zebrascdfghijklmnopqtuvwxy" 'zebras 
Const UpperAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Const UpperSub  As String = "ZEBRASCDFGHIJKLMNOPQTUVWXY" 'ZEBRAS 

Dim lngi   As Long 
Dim lngE   As Long 
Dim strDecrypt  As String 
Dim strLetter  As String 

If strvalue & "" = "" Then Exit Function 

'Reverse the ROT13 cipher 

For lngi = 1 To Len(strvalue) 
    strDecrypt = strDecrypt & Chr(Asc(Mid(strvalue, lngi, 1)) - 13) 
Next 

'Now reverse the encryption 

For lngi = 1 To Len(strDecrypt) 

    strLetter = Mid(strDecrypt, lngi, 1) 

    Select Case Asc(strLetter) 

     Case 65 To 90 'Uppercase 
      'Find position in sub string 
      For lngE = 1 To Len(UpperSub) 
       If Mid(UpperSub, lngE, 1) = strLetter Then GoTo USub 
      Next 
USub: 
      Decrypt = Decrypt & Mid(UpperAlpha, lngE, 1) 

     Case 97 To 122 'Lowercase 
      'Find position in sub string 
      For lngE = 1 To Len(LowerSub) 
       If Mid(LowerSub, lngE, 1) = strLetter Then GoTo LSub 
      Next 
LSub: 
      Decrypt = Decrypt & Mid(LowerAlpha, lngE, 1) 

     Case Else 'Do not substitute 

      Decrypt = Decrypt & strLetter 

    End Select 

Next 

End Function 

मुझे आशा है कि कोडिंग जो लोग VBA कोडिंग के साथ विशाल अनुभव की जरूरत नहीं है और यह कर सकते हैं के लिए पालन करने के लिए बहुत आसान है सीधे पृष्ठ से उठाया जाना चाहिए; लेकिन फिर भी अन्य सभी उत्तरों के लिए धन्यवाद।

Answer 2

आप Blowfish का उपयोग कर सकते हैं। वहाँ एक दृश्य मूल 6 संस्करण Access में काम करेंगे, यहाँ उपलब्ध है:

http://www.di-mgt.com.au/cryptoBlowfishVer6.html

तुम भी TwoFish.

Answer 3

वहाँ एक सरल उदाहरण here है कोशिश कर सकते हैं या आप भी सरल ROT13 सिफर का उपयोग कर सकते हैं।

ये छोटे टेक्स्ट को अस्पष्ट करने के लिए उपयोगी हैं, लेकिन मैं उन्हें उन चीज़ों के लिए उपयोग नहीं करता जो वास्तव में सुरक्षित रखने की आवश्यकता होती है।