Zaboravljeni Clipper program

Ako moze mala pomoc od Clipper programera.Interesuje me ovaj kod tacnije sta on predstavlja:

setcursor(0)
clear screen
clear gets
run dir > c:\mis.txt
vred:= SubStr(memoline(memoread("c:\mis.txt"), 78, 3), 26, 9)
broj:= 0
for i:= 1 to 9
kar:= SubStr(vred, i, 1)
broj:= broj + Asc(kar)
next
if (broj != 471 .AND. broj != 288)
erase c:\mis.txt
set color to W*/N
@ 10, 21 say "Neovlastena upotreba programa !!!"
set color to W/N
setcursor(1)
quit
endif
erase c:\mis.txt
if (!file("D:\CLIP\E.EX"))
quit
endif

Najvise mi nije jasan ova linija koda:if (broj != 471 .AND. broj != 288)

Programirao sam u VB6 i Delphi i po mojoj logici to bi znacilo sledece:Ako je broj 471 i broj je 288 onda brisi c:\mis.txt ali predhodne linije koda se ne uklapaju
u to kako ja razmislam

On 7.11.2011 22:13, "lupco_1959" wrote:



Ako broj nije jednak 471 i nije jednak 288 briši ...

Uradio sam svojevremeno samo jedan program u Clipperu u saradnji sa drugarom koji je to bolje znao, ali ovo meni liči na pokušaj zaštite programa koji se zasniva na sadržaju određenog direktorijuma. Dakle, pseudoalgoritam je otprilike ovakav

- prvo izlista sadržaj direktorijuma u fajl
- pronađe neki niz karaktera u tom fajlu, vrlo verovatno ime nekog fajla
- izračunava "checksum" tako pronađenog stringa, ako se to uopšte može nazvati chekcsumom
- poredi cheksum sa 471 i 288, pa ako nije jednak jednom od ova dva broja, prekida rad programa, prethodno izbrisavši fajl u koji je izlistao sadržaj direktorijuma

Kako otkriti koji fajl ili fajlove traži? Kreni redom, pa pomeraj iz direktorijuma fajlove za koje misliš da nisu neophodni za rad programa i pokreći program sve dok ti ne zabrani rad.

Potpis

 Certified Trainer Mojave 101 macOS Support Essentials 10.14
http://www.adamov.co.rs http://milan.adamov.rs http://www.infinitum.rs