C0361@univscvm.csd.scarolina.edu ( Thomas Jenkins) (10/20/90)
Hello,
Thanks to all who responded! I have solved the problem! I did include
a GetMem statement in my program to all who pointed out that I left that
off my example that was posted! There were actually two problems:
1) In the move statement, I should have used tempBuffer^ :
GetMem ( tempBuffer , size ) ;
Move ( buffer , tempBuffer^ , size ) ;
This caused the system hang ( for obvious reasons :-)! I was over
writting god knows what ( and the PC liked less :-) !
2. I was under-writing my buffer during the encryption! I am using
TYPE encrytper = array (.1..1.) of byte ;
VAR encrypt : encrypter absolute buffer ;
I then set tSize := size and encrypt ( decrypt ) from the rear of the
buffer foward ( IE, DEC(tSize) ; ) The problem was that I changed the
array to (.0..0.) and didn't change the condition fro my while loop
ooppss! :-)
Thanks to all who helped!,
tom
THOMAS E. JENKINS, JR.
PROGRAMMER, UNIVERSITY OF SOUTH CAROLINA
BITNET, C0361 AT UNIVSCVM.BITNET
INTERNET C0361 AT UNIVSCVM.CSD.SCAROLINA.EDU