w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Guard against non-binary data in c77.

Browse Source
This commit is contained in:
Joe Taylor 2018-08-27 11:40:34 -04:00
parent 15b4463394
commit 94e9a02615
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/77bit/packjt77.f90
View File

@ -223,6 +223,11 @@ subroutine unpack77(c77,msg)
"NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", &
"LB ","NU ","VT ","PEI","DC "/
if(index(c77,'*').ge.1) then !Check for bad data
msg='QUIRK 2'
return
endif
read(c77(72:77),'(2b3)') n3,i3
msg=repeat(' ',37)
if(i3.eq.0 .and. n3.eq.0) then
@ -422,7 +427,6 @@ subroutine unpack77(c77,msg)
return
end subroutine unpack77
subroutine pack28(c13,n28)
! Pack a special token, a 22-bit hash code, or a valid base call into a 28-bit