Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zaboravljeni Clipper program

[es] :: Ostali programski jezici :: Zaboravljeni Clipper program

[ Pregleda: 1800 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

lupco_1959
tehnicar masinstva,teteks_tetovo
Tetovo

Član broj: 193382
Poruke: 93
79.125.231.*



Profil

icon Zaboravljeni Clipper program07.11.2011. u 21:13 - pre 92 meseci
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: 427



+19 Profil

icon Re: Zaboravljeni Clipper program07.11.2011. u 21:46 - pre 92 meseci
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
vlasnik
Adamov Konsultacije d.o.o.
Beograd, Srbija

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

Sajt: www.adamov.rs


+128 Profil

icon Re: Zaboravljeni Clipper program08.11.2011. u 07:34 - pre 92 meseci
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-10.12
 Certified Trainer El Capitan 101 Mac OS X Support Essentials 10.11,  Certified Trainer
macOS Sierra 101 Support Essentials 10.12
http://www.adamov.co.rs http://www.4d.rs
 
Odgovor na temu

_owl_

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



+3 Profil

icon Re: Zaboravljeni Clipper program08.11.2011. u 10:48 - pre 92 meseci
Na ovom linku imaš opis Clipper funkcija
http://www.itlnet.net/programm...m/Reference/c53g01c/ng34b.html


Owl
 
Odgovor na temu

[es] :: Ostali programski jezici :: Zaboravljeni Clipper program

[ Pregleda: 1800 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.