[es] - Zaboravljeni Clipper program

lupco_1959
tehnicar masinstva,teteks_tetovo
Tetovo

Član broj: 193382
Poruke: 87
79.125.231.*

Profil

^{07.11.2011. u 21:13 - pre 562 dana i 3h}

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

Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 373
95.180.94.*

Profil

Re: Zaboravljeni Clipper program

^{07.11.2011. u 21:46 - pre 562 dana i 3h}

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 ...

Odgovor na temu

madamov
Milan Adamov
Adamov Konsultacije d.o.o., vlasnik
Beograd, Srbija

SuperModerator
Član broj: 21939
Poruke: 4094
*.dynamic.sbb.rs.

Jabber: madamov@ichat.macserbia.org
Sajt: www.4d.rs

Profil

Re: Zaboravljeni Clipper program

^{08.11.2011. u 07:34 - pre 561 dana i 17h}

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.

ACSA 10.6 ACSP 10.7 ACSP 10.8
 Certified Trainer Mountaion Lion 101 Mac OS X Support Essentials 10.8 - 
Certified Trainer Lion 101 Mac OS X Support Essentials 10.7 -  Certified Trainer
Snow 101 Mac OS X Support Essentials 10.6
http://www.adamov.co.rs http://www.4d.rs

Odgovor na temu

_owl_
Centar - BG

Član broj: 318
Poruke: 1006
*.static.isp.telekom.rs.

Sajt: home.drenik.net/~owl

Profil

Re: Zaboravljeni Clipper program

^{08.11.2011. u 10:48 - pre 561 dana i 14h}

Na ovom linku imaš opis Clipper funkcija
http://www.itlnet.net/programm...m/Reference/c53g01c/ng34b.html

Owl

Odgovor na temu