पर आधारित सरल टेक्स्ट फ़ाइल एन्क्रिप्शन मैं एक साधारण पाठ फ़ाइल एन्क्रिप्शन तकनीक को लागू करने की कोशिश कर रहा हूं और मैं ऐसा करने के लिए निम्न कोड का उपयोग कर रहा हूं। कोड मेरे द्वारा नहीं लिखा गया है, मैं बस googled और मिल गया। एन्क्रिप्शन तकनीक बहुत सरल, संक्षिप्त और कार्यान्वित करने में आसान प्रतीत होती है। मैं देखता हूं कि इसमें केवल एक ही कार्य है जो फ्लाई पर एन्क्रिप्शन और डिक्रिप्शन कर सकता है। बस कुंजी पास करें यह चाल करेगा। हालांकि, मैं बस जानना चाहता था, क्या यह जांचना मेरे लिए संभव है कि उपयोगकर्ता द्वारा कुंजी पारित की गई है या नहीं। वर्तमान में यह पास की गई कुंजी के आधार पर टेक्स्ट फ़ाइल को एन्क्रिप्ट/डिक्रिप्ट करेगा। लेकिन यह जांचने के लिए कोई तंत्र नहीं है कि क्या हम सही कुंजी के साथ डिक्रिप्ट कर रहे हैं या नहीं। जो भी कुंजी हम पास करते हैं, वह डिक्रिप्ट हो जाएगी, लेकिन यह पठनीय नहीं होगा। इस समस्या से निपटने के लिए कोई विचार .. ..एक कुंजी
procedure TEnDeCrypt.EnDecryptFile(pathin, pathout: string; Chave: Word);
var
InMS, OutMS: TMemoryStream;
cnt: Integer;
C: byte;
begin
InMS := TMemoryStream.Create;
OutMS := TMemoryStream.Create;
try
InMS.LoadFromFile(pathin);
InMS.Position := 0;
for cnt := 0 to InMS.Size - 1 DO
begin
InMS.Read(C, 1);
C := (C xor not (ord(chave shr cnt)));
OutMS.Write(C, 1);
end;
OutMS.SaveToFile(pathout);
finally
InMS.Free;
OutMS.Free;
end;
end;
मुझे नहीं पता कि लोग इसे क्यों वोट दे रहे हैं! – jimsweb
यह मैं नहीं था, लेकिन इस तरह की एन्क्रिप्शन बहुत सुरक्षित नहीं है, और इसमें निवेश करने लायक नहीं है। यह एन्क्रिप्शन की तुलना में अधिक obfuscation है। आपके वास्तविक प्रश्न के लिए: कोई रास्ता नहीं है, क्योंकि आपके पास कोई वास्तविक कुंजी सिस्टम नहीं है जो गुप्त भाग को सुरक्षित किए बिना सुरक्षित रूप से प्रमाणीकृत कर सकता है। –
धन्यवाद मार्को। क्या कोई अन्य तकनीक है जिसके माध्यम से मैं इसे प्राप्त कर सकता हूं? मैं बस यह सुनिश्चित करना चाहता था कि उपयोगकर्ता ने सही कुंजी दर्ज की है। मैं एन्क्रिप्शन की ताकत के बारे में चिंतित नहीं हूं। यह एक साधारण हो सकता है। – jimsweb