डेटा कम्प्रेशन करने का प्रयास किया जा रहा है

मैं आविष्कार करने की कोशिश कर रहा हूं..

(पुनरावर्ती दोषरहित यादृच्छिक डेटा संपीड़न)

कहते हैं ; कि यह संभव नहीं है…
मैं उन्हें गलत साबित करने की कोशिश कर रहा हूं…

मैंने क्या प्रयास किया है:

================================================ =
एआरजेड (अल्बर्ट रेडिट ज़िप)

(पुनरावर्ती दोषरहित यादृच्छिक डेटा संपीड़न)

किसी भी आकार की फ़ाइल को लगभग 2600 बाइट्स तक संपीड़ित करता है।
फ्रीबेसिक में लिखा गया कोड..
================================================ =

dim as ubyte count = 0
do
    if len( bits ) mod 7 <> 0 then bits+= "0" : count+= 1 else exit do
loop

chrs = string( len( bits ) \ 7 , "0" ) + chr( count )
dim as longint place = 0
dim as string m1 , m2
for a as longint = 0 to len( bits ) - 1 step 7

    if bits[ a + 0 ] = 49 then m1 = "1000" else m1 = "0000"
    if bits[ a + 1 ] = 49 then m1[ 1 ]+= 1
    if bits[ a + 2 ] = 49 then m1[ 2 ]+= 1
    if bits[ a + 3 ] = 49 then m1[ 3 ]+= 1
    
    if bits[ a + 4 ] = 49 then m2 = "101" else m2 = "111"
    if bits[ a + 5 ] = 49 then m2[ 2 ]-= 1
    if bits[ a + 6 ] = 49 then m2+= "0"
    
    m1+= m2
    
    chrs[ place ] = val( "&B" + m1 ) : place+= 1
                
next
bits = ""

chrs = Zlibrary.pack( chrs )

loops+= 1

============================================
तब तक लूप करते रहें जब तक यह छोटा न हो जाए..
मैं वास्तविक संपीड़न करने के लिए Zlib.dll को कॉल कर रहा हूं…
============================================