[ lupco_1959 @ 07.11.2011. 21:13 ] @
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
[ mkaras @ 07.11.2011. 21:46 ] @
On 7.11.2011 22:13, "lupco_1959" wrote:

Citat:

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


Ako broj nije jednak 471 i nije jednak 288 briši ...
[ madamov @ 08.11.2011. 07:34 ] @
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.
[ _owl_ @ 08.11.2011. 10:48 ] @
Na ovom linku imaš opis Clipper funkcija
http://www.itlnet.net/programm...m/Reference/c53g01c/ng34b.html