किसी Excel दस्तावेज़ से पासवर्ड निकालें

Question

मैं आंतरिक सहायता प्रदान कर रहा हूं और हमारे उपयोगकर्ताओं में से एक दुर्घटना से एक एक्सेल फाइल पर पासवर्ड डालने में कामयाब रहा है, मैंने यह सुनिश्चित करने के लिए उचित जांच की है कि उपयोगकर्ता को दस्तावेज़ तक पहुंच होनी चाहिए और अब यह जानना चाहते हैं कि क्या है एक्सेल डॉक्यूमेंट से पासवर्ड हटाने की सिफारिश।

एक्सेल खुलने के बाद इसका क्या मूल्य है, इसके बारे में, लेकिन इससे पहले कि आप एक्सेल में कोई डेटा देख सकें।

Comments

उम, तुम थोड़े भरवां हो। जब तक आप जटिल क्रिप्टोग्राफी सामान नहीं करना चाहते हैं ... (मुझे इस पर .xls करने के लिए किसी भी कार्यक्रम के बारे में पता नहीं है)। एक्सेल में ऐसा करने का कोई सामान्य, स्वचालित तरीका नहीं है - जो पहली बार में पासवर्ड रखने की बात को पराजित कर देगा ... आपकी एकमात्र आशा ऐसी फ़ाइलों के लिए एक विशेष सिफर क्रैकिंग प्रोग्राम होगा (जो कठिन हो सकता है) लगता है)। शायद Google decrypt xlsया ऐसा ही कुछ।

— सैमुअल जैस्चके

एक्सेल .xlsx फ़ाइल वास्तव में सिर्फ एक ज़िप फ़ाइल है। अनज़िप करें और इन जैसे निर्देशों का पालन करें। अगर यह पूरी तरह से पासवर्ड संरक्षित है, तो यह काम करता है अगर अतीत में यकीन नहीं है। nileshkumar83.blogspot.com/2012/05/...

— Joop

@SamuelJaeschke हर समय stackoverflow.com/a/27508116/5757159 पर हुक विधि काम करता है। कोई खुर की आवश्यकता।

— थंडरफ्रैम

Answer 1

Elcomsoft एक बहुत ही उपयोगी प्रोग्राम बनाता है जिसे उन्नत कार्यालय पासवर्ड रिकवरी कहा जाता है जो मेरे द्वारा उपयोग की गई किसी भी चीज़ से बेहतर काम कर सकता है।

यह संभवतः उस डेटा पर एक मूल्य डालने के लायक है जिसे आप प्रयास करने से पहले पुनर्प्राप्त करने का प्रयास कर रहे हैं, कभी-कभी उपयोगकर्ता को खरोंच से दस्तावेज़ को फिर से बनाने के लिए यह कम महंगा होता है (और उन्हें एक मूल्यवान सबक सिखाता है ;-))। AOPR मुफ़्त नहीं है, और पासवर्ड कभी-कभी केवल जानवर बल द्वारा काम किया जा सकता है (अक्षरों के हर संभव संयोजन की कोशिश कर रहा है) जो बहुत लंबा समय ले सकता है।

Comments

Elmcomsoft के कार्यक्रम अच्छे हैं, मुझे अतीत में इसके साथ एक एक्सेल फाइल खोलने के लिए सफलता मिली है जिसे मुझे पासवर्ड के बिना भेजा गया था। एक सभ्य शब्द सूची प्राप्त करें, और कोशिश करें कि पहले (कैन और एबेल में शामिल एक अच्छा 3 एमबी एक है)। यदि वह विफल हो जाता है, तो जानवर को बल देने की कोशिश करें, लेकिन अगर यह एक मजबूत पासवर्ड है, तो आप कभी नहीं

— मिलेंगे

मैं इस साइट पर वाणिज्यिक सॉफ़्टवेयर की सिफारिश करने का प्रशंसक नहीं हूं, लेकिन इस मामले में यह अब तक का सबसे अच्छा विकल्प है। सिफारिश की। +1।

— १२:०४

Answer 2

क्या ऐसा कुछ है, एक्सेल पासवर्ड रिमूवर XLA ऐड-इन, आपके बाद क्या है?

EDIT: इसके बारे में सोचना, शायद नहीं - इसका उपयोग संरक्षित कार्यपत्रकों / कार्यपुस्तिकाओं से पासवर्ड हटाने के लिए किया जाता है।

Comments

क्या नैतिक रूप से हम इस उपकरण का उपयोग करके हल कर सकते हैं?

— जो

Answer 3

यदि आप जानते हैं कि पासवर्ड क्या है, तो आगे बढ़ें और एक्सेल दस्तावेज़ खोलें। इसके बाद File> Save As पर क्लिक करें। सेव बटन के बाईं ओर लेबल टूल्स की एक छोटी बूंद है। उस पर क्लिक करें, और फिर सामान्य विकल्प पर क्लिक करें। वहां पासवर्ड प्रविष्टियां हटाएं, और ठीक पर क्लिक करें। दस्तावेज़ सहेजें।

यदि आपको नहीं पता कि पासवर्ड क्या है, तो आप इसे खोजने के लिए VBA का उपयोग कर सकते हैं। अगर मुझे एक अनुमान लगाना होता है, तो आपका उपयोगकर्ता शायद एक सुपर मजबूत पासवर्ड का उपयोग नहीं करता है, इसलिए हम इसे खोजने के लिए एक क्रूर बल प्रकार विधि का उपयोग कर सकते हैं। नीचे दिया गया कोड मोटा है, लेकिन इसने मुझे अपने कई उपयोगकर्ताओं के दस्तावेजों पर एक कमजोर, खोया हुआ पासवर्ड खोजने में मदद की है। यह 1 से z तक ASCII वर्णों के साथ किसी भी लंबाई के पासवर्ड की जांच करता है। आप इसे तत्काल विंडो से कॉल करेंगे और कई मिनट तक इंतजार करेंगे जैसे:

? GetPassword("D:\mywkbk.xlsx")

-

Public Function GetPassword(ByRef sFileName As String) As String
On Error Resume Next
    Dim pw As String
    pw = ""
    Do
        VBA.Err.Clear
        pw = GenerateNextPassword(pw)            
        Application.Workbooks.Open sFileName, False, True, , pw, pw
        VBA.DoEvents
    Loop While VBA.Err.Number = 5408
    GetPassword = pw
End Function

Public Function GenerateNextPassword(ByRef sCurrentPassword As String) As String
    Const MAX_CHAR = 122
    Const MIN_CHAR = 49

    Dim sCurrentPasswordMax As String
    Dim sNewPassword As String
    Dim i As Long

    sCurrentPasswordMax = String(Len(sCurrentPassword), Chr(MAX_CHAR))
    If sCurrentPassword = sCurrentPasswordMax Then
        'do an increment that changes the length
        sNewPassword = String(Len(sCurrentPassword) + 1, Chr(MIN_CHAR))
        Debug.Print Now(); ": "; sNewPassword
    ElseIf Asc(Right(sCurrentPassword, 1)) = MAX_CHAR Then
        'do an increment that changes multiple characters
        sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(MIN_CHAR)
        For i = Len(sCurrentPassword) - 1 To 1 Step -1
            sNewPassword = Left(sNewPassword, i - 1) & Chr(Asc(Mid(sNewPassword, i, 1)) + 1) & Mid(sNewPassword, i + 1)
            If Asc(Mid(sCurrentPassword, i, 1)) <> MAX_CHAR Then
                Exit For
            End If
        Next i
    Else
        'do an increment on the rightmost character
        sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(Asc(Right(sCurrentPassword, 1)) + 1)
    End If

    GenerateNextPassword = sNewPassword
End Function

Comments

यह निहित है कि पासवर्ड खो गया है और भूल गया है, इसलिए आपका पहला पैराग्राफ अप्रासंगिक है। यदि आपको अपना VBA रूटीन किसी अज्ञात पासवर्ड को हटाने के लिए मिलता है, तो कृपया हमें बताएं, लेकिन मुझे संदेह है कि यह असंभव है।

— स्कॉट

ओपी को फिर से पढ़ने के बाद, मैं दृढ़ता से तर्क दूंगा कि यह स्पष्ट नहीं है कि पासवर्ड खो गया है, इसलिए मैं उस पहले पैराग्राफ को वहां रखता हूं। मैंने कुछ VBA कोड के साथ उत्तर को अपडेट किया जिसका उपयोग पासवर्ड को कुछ मिनटों में या लंबे समय तक किया जा सकता है यदि पासवर्ड ज्ञात नहीं है।

— बोबोर्ट

Answer 4

इस एसओ लेख में प्रदर्शित हुक दृष्टिकोण हर बार काम करता है।

https://stackoverflow.com/a/27508116/5757159

कोई हेक्स संपादक नहीं, कोई डाउनलोड नहीं, कोई इंस्टॉलर नहीं। बस एक शुद्ध VBA समाधान।