//-------------------------------------------------------------------------------------------------------
//
//	IDA IDC script
//
// haspmark.idc: seeks for possible "hasp marks" and comments them
//
// code by defiler
//-------------------------------------------------------------------------------------------------------


#include <idc.idc>

static main()
{
	auto ea,cont;
	ea = FirstSeg();
	cont = 1;
	while (cont==1) {
		ea = FindBinary(ea,SEARCH_DOWN,"80 FF 32");
		if( ea == -1) {							//If No Hits
			Warning("No occurrence");					//MessageBox
			break;							//Leave
		}
		MakeComm(ea,"possible HASP-mark");					//comment line
		Jump(ea);
		ea=ea+3;
		cont = AskYN( 1, "Find next possible Hasp-mark?" );			//Search Again?

	}
	Message("\n" + "Search Complete\n");
}